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




Вниз

как обработать событие 


ДмитрийВ   (2002-02-09 18:07) [0]

есть процедура
procedure TForm1.Button1Click(Sender: TObject);
var
Window : TForm;
Button2 : TButton;

begin
Window:=TForm.Create(Form1);
Button2:=TButton.Create(Window);
Button2.Parent:=Window;
Window.Height:=600;
Window.Width:=600;
Window.Caption:="Проба";
Button2.Width:=100;
Button2.Height:=20;
Button2.Top:=100;
Button2.Left:=300;
Button2.Caption:="Жопа";
Button2.TabStop:=True;
Button2.TabOrder:=0;
Button2.Tag:=0;
Window.Show;
end;

как для button2, например, нажатие(OnClick) описать?



Song   (2002-02-09 18:12) [1]

Создаёшь процедру, которая должна будет обрабатывать твоё нажатие
а к твоему тексту выше добавляешь Button2.OnClick:=имя_процедуры;



ДмитрийВ   (2002-02-09 18:23) [2]

изменил на так

procedure TForm1.Button1Click(Sender: TObject);
var
Window : TForm;
Button2 : TButton;

procedure ButtonOnClick;
begin
Window.Free;
end;

begin
Window:=TForm.Create(Form1);
Button2:=TButton.Create(Window);
Button2.Parent:=Window;
Window.Height:=600;
Window.Width:=600;
Window.Caption:="Проба";
Button2.Width:=100;
Button2.Height:=20;
Button2.Top:=100;
Button2.Left:=300;
Button2.Caption:="Жопа";
Button2.TabStop:=True;
Button2.TabOrder:=0;
Button2.Tag:=0;
Window.Show;
Button2.OnClick:=ButtonOnClick;
end;

делафя пишет что incompatible type "method pointer and regular procedure"



Song   (2002-02-09 20:45) [3]

А ты попробуй создай для события onClick любой кнопки процедуру и сразу увидишь свою ошибку.
А ошибка твоя именно том, что ты забыл в процедуру передать Sender

Procedure TForm1.Button1Click(Sender:TObject);

Именно так Дельфи генерирует процедуру при добавлении её на событие. Поэтому чтобы твоё событие работало нужно передавать туда все параметры, которые предусмотрены для такого события. В данном случае это Sender



Dimk   (2002-02-10 01:05) [4]

И еще: OnClick -у надо присваивать метод а не регулярную процедуру. Так что в самом деле можно просто сделать

procedure Form1.ButtonOnClick(Sender: TObject);
begin
Window.Free;
end;

и конечно в объявление формы дописать

Form1 = class(TForm)
.....
procedure ButtonOnClick(Sender: TObject);
....
end;





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




Наверх





Память: 0.72 MB
Время: 0.017 c
1-90536           Victor                2002-02-09 11:30  2002.02.28  
Путь к файлу


1-90573           chelobaka             2002-02-11 17:04  2002.02.28  
Делал проект под win2000, перенес на 98 - не работает. Помогите советом, плс.


3-90493           Yuri Btr              2002-02-04 11:06  2002.02.28  
Нарушение структуры DBF ?


3-90442           knyaz17               2002-01-31 14:42  2002.02.28  
Как в ADO подсоединится к DBF файлу, расширение которго не DBF?


3-90460           VladimirL             2002-02-01 17:24  2002.02.28  
Фильтрация по частичному совпадению