Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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.
Заранее благодарен



Mbo   (2002-01-06 10:41) [1]

MyClick должно буть методом формы



Anatoly Podgoretsky   (2002-01-06 10:54) [2]

методом класса



bit   (2002-01-06 10:57) [3]

2Anatoly Podgoretsky
А можно примерчик плиз



Mbo   (2002-01-06 11:01) [4]

interface
tform1 = class...
procedure MyClick (Sender : TObject);

implementation
procedure TForm1.MyClick (Sender : TObject);
begin
...



Anatoly Podgoretsky   (2002-01-06 11:12) [5]

Добавить Type после interface и убрать procedure MyClick из DoSomething. В DoSomething OnClick := TForm1.MyClick;

Остальное смотри Mbo © (06.01.02 11:01)
Но обращать лучше
(Sender as TForm).Caption :=




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.021 c
3-75480           vasilly               2001-12-20 09:12  2002.01.24  
Как из дельфи изменить хранимую процедуру для IB6??? То что написано ниже не работает, хотя из консоли проходит при добавлении TERM


3-75470           vano                  2001-12-07 16:21  2002.01.24  
try except


4-75720           ILYAKA                2001-11-23 18:43  2002.01.24  
Как взять список окон в Windows (жел-но с Handl-ами)


1-75540           ctapik-net            2002-01-05 09:28  2002.01.24  
Создание нестандартного компонента


1-75561           mart                  2002-01-06 13:08  2002.01.24  
Потоки. Крит. секции.