Форум: "Начинающим";
Текущий архив: 2007.09.30;
Скачать: [xml.tar.bz2];
ВнизСобытия для панели Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.045 c