Главная страница
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.04 c
1-26492
Buka
2003-05-26 22:11
2003.06.09
ComboBox и FontDialog? Как заставить делать выбор из 2-го в 1-й?


1-26460
Yanis
2003-05-28 21:34
2003.06.09
Вопрос: Как убить процесс?


3-26371
Snake
2003-05-19 14:00
2003.06.09
Пожалуйста, помогите составить запрос...


7-26793
Wizd
2003-04-01 10:26
2003.06.09
Как заставить прогу работать до ввода логина и пароля? Win2000ser


14-26649
Kesha
2003-05-20 18:51
2003.06.09
Outlook Email Resolve