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