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

Вниз

Добавление обработчиков к создаваемым компонентам   Найти похожие ветки 

 
OlegM ©   (2003-05-28 13:31) [0]

Привет всем!
Создаю TPanel в RunTime так

S:=TPanel.Create(Self);
S.Left:=112;
S.Parent:=form1;
S.Top:=384;
S.Width:=41;
S.Height:=41;
S.Visible:=true;

Как мне для этой панели в обработчик события OnMouseDown
засунуть этот код и конечно что-бы эта панель реагировала на него

const
SC_DragMove = $F012;
begin
ReleaseCapture;
Panel1.Perform(WM_SysCommand, SC_DragMove, 0);
end;


 
pasha_golub ©   (2003-05-28 14:04) [1]

type TForm1 = class(TForm)
....

public

procedure MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
{ Твоя процедура }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

begin
showmessage("c"); // сюда помещай свой код
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Panel1.OnMouseDown := MouseDown;
end;

end.


 
OlegM ©   (2003-05-28 14:19) [2]

Вылетает с ошибкой на
S.OnMouseDown:=MouseDown;

Method "MouseDown" hides virtual method of base type "TControl"


 
OlegM ©   (2003-05-28 14:21) [3]

Cпасибо огромное, разобрался.



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

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

Наверх




Память: 0.47 MB
Время: 0.035 c
1-26507
OlegM
2003-05-30 08:56
2003.06.09
Как обратиться к компоненту через переменную


1-26532
Deus
2003-05-25 21:05
2003.06.09
Насчёт размера программ(в памяти)


1-26604
Кирилл Г.
2003-05-28 14:25
2003.06.09
Обьединение в Ворде


1-26457
wera
2003-05-29 12:13
2003.06.09
ListBox


11-26414
AlbertHakimov
2002-09-17 11:23
2003.06.09
Два насущных вопроса !