| ← Сентябрь 2004 → | ||||||
|
1
|
3
|
5
|
||||
|---|---|---|---|---|---|---|
|
7
|
8
|
10
|
12
|
|||
|
14
|
15
|
16
|
17
|
19
|
||
|
20
|
21
|
23
|
25
|
|||
|
27
|
29
|
|||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RusFAQ.ru: Программирование на Delphi
| Информационный Канал Subscribe.Ru |
RusFAQ.ru: Программирование на C++ Builder / Delphi
Выпуск № 378
от 02.09.2004, 15:20
| Администратор: Имя: Калашников О.А. URL: Информационный ресурс ICQ: 68951340 Россия, Москва |
О рассылке: Задано вопросов: 1778 Отправлено ответов: 4059 Активность: 228.2 %
|
| Список экспертов, ответы которых опубликованы в данном выпуске |
| Slider Статус: Опытный Общий рейтинг: 141.91 [Подробней >>] |
CJ Статус: Опытный Общий рейтинг: 118.51 URL: Персональный сайт Каратецкого Кирилла. Телефон: +375297353706 [Подробней >>] |
Snowm@n Статус: Опытный Общий рейтинг: 107.13 [Подробней >>] |
| Харланов Сергей Статус: Начальный Общий рейтинг: 121.95 [Подробней >>] |
| Краткий перечень вопросов |
Вопрос № 1769. Уважаемые эксперты, При событи формы OnShow, я заменяю Application.OnShow:=myOnShow;, myOnShow- эт... (ответов: 1)
Вопрос № 1770. Здравствуйте, уважаемые эксперты! Прошу прощения за глупый вопрос, но все-таки: есть ли в С++ Builde... (ответов: 3)
Вопрос № 1772. Помогите, пожалуйста, решить вот такую проблему. На форме динамически создаетcя массив кнопок TBitBt... (ответов: 2)
Вопросов: 3, ответов: 6
| Вопрос № 1769 |
Уважаемые эксперты,
При событи формы OnShow, я заменяю
Application.OnShow:=myOnShow;, myOnShow-
это проседура в которой я присваиваю
Application.Hint например Edit.text-у
(или StatusBar1.SimpleText-у). Т.е беру
всю работу на себя. Но почему срабатывает
показ подсказок? Спасибо за дельные ответы.
Вопрос отправлен: 27.08.2004, 21:37
Отправитель: ms
[Следующий вопрос >>] [Список вопросов]
Отвечает Slider
Приветствую Вас, ms!
если я тебя правильно понял, то едит должен содержать Application.Hint, так? по-дефолту application.hint = '', не путай application с формой , вот простой пример:
procedure TForm1.FormShow(Sender: TObject);
begin
Application.Hint := 'sad';
Edit1.Text := Application.Hint;
end;
Ответ отправлен: 28.08.2004, 12:58
Отправитель: Slider
| Вопрос № 1770 |
Здравствуйте, уважаемые эксперты!
Прошу прощения за глупый вопрос, но все-таки: есть ли в С++ Builder 5 готовая функция нахождения наибольшего общего делителя(НОД)?
Если нет - то подскажите алгоритм нахождения НОД.
P.S. В школе учился давно, вспомнить трудно, к моему стыду...
Вопрос отправлен: 29.08.2004, 12:00
Отправитель: Alexandr
[Следующий вопрос >>] [Список вопросов]
Отвечает CJ
Здравствуйте, Alexandr!
Функции такой нет, делается все через математические операции. Да это в 5 классе было, к 9 уже не вспомнишь. :)
Ответ отправлен: 29.08.2004, 12:56
Отправитель: CJ
Отвечает Snowm@n
Добрый день, Alexandr!
нет
см в приложение
Приложение:
Ответ отправлен: 30.08.2004, 20:54
Отправитель: Snowm@n
Отвечает Slider
Доброе время суток, Alexandr!
http://www.softcraft.ru/translat/lect/t03-03.shtml
Ответ отправлен: 30.08.2004, 13:48
Отправитель: Slider
| Вопрос № 1772 |
Помогите, пожалуйста, решить вот такую проблему.
На форме динамически создаетcя массив кнопок TBitBtn (пример в приложении).
Как написать обработчик событий для этих кнопок (нажатие), ведь их в процессе проектирования на форме нет? Как назначить им всем это событие?
Спасибо!
Приложение:
Вопрос отправлен: 30.08.2004, 15:13
Отправитель: Татьяна
[Следующий вопрос >>] [Список вопросов]
Отвечает Харланов Сергей
Приветствую Вас, Татьяна!
//Обьявление процедуры котораю будет присваиваться кнопкам
public
procedure NewProcedure(Sender: TObject);
{ Public declarations }
end;
var
Form1: TForm1;
MyButton : array[1..100] of TBitBtn;
c: Integer;
//Процедура которая будет присваиваться
procedure TForm1.NewProcedure(Sender: TObject);
begin
ShowMessage('123');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
for c:=1 to 100 do
begin
MyButton[c]:= TBitBtn.Create(Form1);
With MyButton[c] do
begin
Parent := Form1;
Tag := c;
height :=40;
Width :=40;
Caption := intToStr(Tag);
left := 42*((c-1) mod 10);
top := 42 *((c-1) div 10);
//Присваивание процедуры
OnClick:=NewProcedure;
end;
end;
end;
Ответ отправлен: 30.08.2004, 15:37
Отправитель: Харланов Сергей
Отвечает Slider
Добрый день, Татьяна!
создаете новый клас, дочерний от TBitBtn
а потом функцию Click переписываете так как вам надо!
unit Unit1;
type
TMyBut = class(TBitBtn)
private
procedure Click; override;
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TMyBut.Click;
begin
Showmessage('HELLO');
end;
procedure TForm1.FormCreate(Sender: TObject);
var
but: array[1..10] of TMyBut;
i: integer;
begin
for i := 1 to 10 do
begin
but[i] := TMyBut.Create(self);
but[i].Name := 'but'+inttostr(i);
but[i].Parent := Form1;
but[i].Width := 40;
but[i].Height := 40;
but[i].left := 42*((i-1) mod 10);
but[i].top := 42 *((i-1) div 10);
but[i].Visible := true;
end;
end;
end.
Ответ отправлен: 30.08.2004, 18:35
Отправитель: Slider
|
Форма отправки вопроса |
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.
(C) 2002-2003 Команда RusFAQ.ru.
| Вопрос и дополнение |
Ваш вопрос:
Приложение (если необходимо):
Получить ответов:
| Выбор рассылки |
| Программисту Assembler (26) C / C++ (15) Perl (6) Builder / Delphi (13) Pascal (23) Basic / VBA (5) Java / JavaScript (6) PHP (13) Криптография (7) WinAPI (10) Радиоэлектроника (11) |
Пользователю Windows 95/98/Me (48) Windows NT/2000/XP (65) "Железо" (43) Поиск информации (21) |
Администратору Windows NT/2000/XP (40) Linux / Unix (16) |
Юристу Гражданское право (10) Семейное право (7) Трудовое право (9) КоАП (7) |
Отправить вопрос всем экспертам выбранной рассылки.
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.
| http://subscribe.ru/
http://subscribe.ru/feedback/ |
Подписан адрес: Код этой рассылки: comp.soft.prog.delphiplus |
Отписаться |
| В избранное | ||
