| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

События для панели

AIK ©   (2007-09-06 17:33:00) 

Здраствуйте мастера уменя такой вопрос
Создаю панельку с помощью кнопки
procedure TForm1.Button1Click(Sender: TObject);
var
panel:TPanel;
begin
Panel:=TPanel.Create(Form1);
Panel.Parent:=Form1;
panel.SetBounds(10, 10, 30, 60);
PAnel.Show;

end;

И теперь незнаю как создать события для Panel.OnClick пожалуйста подскажите кто знает

---

AIK   (2007-09-06 18:11:00) [1]

> Efir ©   (06.09.07 18:08) [3]


Спасибо, выручил

---

Efir   (2007-09-06 18:08:00) [2]

private
procedure MyClick(Sender:TObject);
...

var
Panel:TPanel;

procedure TForm1.Button1Click(Sender: TObject);
begin
Panel:=TPanel.Create(Self);
Panel.Parent:=Self;
Panel.SetBounds(10, 10, 30, 60);
Panel.OnClick:=MyClick;
end;

procedure TForm1.MyClick(Sender:TObject);
begin
 ShowMessage('My Click');
end;

---

AIK   (2007-09-06 18:01:00) [3]

> Savek   (06.09.07 17:52) [1]


Неработает твой SuperClick
и откуда ты взял privatможет  private

---

Savek   (2007-09-06 17:52:00) [4]

privat

privat
procedure TForm1.MySuperClick(Sender:TObject);
...
...
procedure TForm1.Button1Click(Sender: TObject);
var
panel:TPanel;
begin
Panel:=TPanel.Create(Form1);
Panel.Parent:=Form1;
panel.SetBounds(10, 10, 30, 60);
PAnel.Show;
Panel.OnClick:=MySuperClick
end;


---

Наверх