Форум: "Основная";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];
ВнизError Найти похожие ветки
← →
bit (2002-01-06 10:38) [0]Привет всем программерам! Помогите мне плиз в такой ситуации:
...
procedure DoSomething;
var
MyForm : TForm;
procedure MyClick (Sender : TObject);
begin
MyForm.Caption := "Hello"
end;
begin
MyForm := TForm.Create (Application);
with MyForm do
begin
Top := 30;
Left := 60;
Show;
OnClick := MyClick ; // В этом и проблема
end;
end;
...
Помогите, пожалуйста, как правильно объявить процедуру MyClick.
Заранее благодарен
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c