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

Вниз

События для панели   Найти похожие ветки 

 
AIK ©   (2007-09-06 17:33) [0]

Здраствуйте мастера уменя такой вопрос
Создаю панельку с помощью кнопки
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 пожалуйста подскажите кто знает


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

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;


 
AIK ©   (2007-09-06 18:01) [2]


> Savek   (06.09.07 17:52) [1]


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


 
Efir ©   (2007-09-06 18:08) [3]

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:11) [4]


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


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



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

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

Наверх




Память: 0.47 MB
Время: 0.022 c
2-1188802439
RomanH
2007-09-03 10:53
2007.09.30
Отличие self и application


3-1177057304
Amid
2007-04-20 12:21
2007.09.30
Цикл по всем записям ADODataSet


2-1189001572
Dmitriy_
2007-09-05 18:12
2007.09.30
Как развернуть чужое окно?


2-1189080006
maslcs
2007-09-06 16:00
2007.09.30
внешний вид scroll а в компоненте webBrowser


15-1188933049
Nic
2007-09-04 23:10
2007.09.30
Куда пригласить девушку на первое свидание? :)