Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.27;
Скачать: CL | DM;

Вниз

Помогите новичку   Найти похожие ветки 

 
Yury ©   (2007-05-11 16:48) [0]

Есть проблемка!

Заранее благодарен кто поможет решить.

Создаю Месседж Бокс руками.
Надо этому Боксу добавить событие ВанКлик.
Как это сдеалать??? помогите пожалуйста!
На первый взгляд все просто. Но почему-то
не работает.

Ниже листинг.
-------------------------------------------------------------
procedure Show(var stoped:bool);
var
AMsgDialog: TForm;
ACheckBox: TCheckBox;
begin
AMsgDialog := CreateMessageDialog("Записана цифра "+Trim(IntToStr(digit))+" в ячейку ("+Trim(IntToStr(str1))+";"+Trim(IntToStr(sto1))+" ) !", mtWarning, [mbOk]);
ACheckBox := TCheckBox.Create(AMsgDialog);
with AMsgDialog do
try
Caption := ""12345"" ;
Height := 150;
Width := 280;
Left := Screen.ActiveForm.Left + (Screen.ActiveForm.Width div 2) - (Width div 2);
Top := Screen.ActiveForm.Top + (Screen.ActiveForm.Height div 2) - (Height div 2);
with ACheckBox do
begin
Parent := AMsgDialog;
Caption := "Останавливаться после записи каждой цифры.";
top := 100;
Left := 5;
Width := 270;
Checked := stoped;
OnClick := OnClick2;
end;
case ShowModal of
ID_OK:
end;
finally
ACheckBox.Free;
Free;
end;
end;
_ _ _ _ _ _ _ _
procedure OnClick2(Sender: TObject);
begin
stoped:=not stoped;
// ACheckBox.Checked := stoped;
Form1.CheckBox1.Checked := stoped;
Form1.Refresh;
end;


 
Kolan ©   (2007-05-11 16:53) [1]

> Надо этому Боксу добавить событие ВанКлик.

Если «Ван» на вашем языке = On, то:

procedure DoClick(Sender: TObject);
begin
 ShowMessage("Click");
end;

var
 CheckBox: TCheckBox;
begin
 CheckBox := TCheckBox.Create(Self);
 CheckBox.Parent := Self;
 CheckBox.OnClick := DoClick;
end;


 
Desdechado ©   (2007-05-11 17:33) [2]

C той только разницей, что обработчики событий - методы класса должны быть, а не простые процедуры.


 
Kolan ©   (2007-05-11 17:37) [3]

> а не простые процедуры.

Ну да — это имелось ввиду.



Страницы: 1 вся ветка

Текущий архив: 2007.05.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.068 c
2-1178575587
Gringoire
2007-05-08 02:06
2007.05.27
Массив из строк


6-1163756442
MOtoroller
2006-11-17 12:40
2007.05.27
изменить Webbrowser или как выводить баннеры ?!?


15-1177505791
palva
2007-04-25 16:56
2007.05.27
Геометрическая задача


15-1177667659
DeadMeat
2007-04-27 13:54
2007.05.27
Turbo Explorer 2006 под Windows Vista


3-1173595209
_kos
2007-03-11 09:40
2007.05.27
Подключение к удалённой mysql