Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Подскажите, как определить, какая Button нажата (в режиме run-tim [D6, WinXP]

Michael5 © (2005-02-13 20:18:00)
Кнопки автоматически генерируются, а затем мне хотелось бы их перемещать, для чего мне нужно определить, какая кнопка нажата, присвоить ее имя переменной btn:TButton, после чего уже она используется как например, здесь:

procedure TForm1.RunTimeButtonMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssCtrl in Shift then
begin
SetCapture(btn.Handle);
Capturing := true;
MouseDownSpot.X := x;
MouseDownSpot.Y := Y;
end;
end;

Michael5 (2005-02-13 23:22:00) [1]
>Плохиш
Спасибо, действительно, все в порядке, ошибку нашел, не в том месте запаниковал :))

Плохиш (2005-02-13 23:11:00) [2]
(Sender as TStaticText).Handle

PS. Совершенно нет никакого желания телепатировать, какой тип имеет переменная lbl.

Handle он и есть Handle типа LongWord.

Michael5 (2005-02-13 22:52:00) [3]
И еще вопрос, если можно!
Вопрос по Handle. Если для Button такая функция работает:

btn:=Sender as TButton;
SetCapture(btn.Handle);...

то что мне делать в случае с Edit или StaticText?
Плохо понимаю (извиняюсь, конечно, за глупые вопросы), там дело разных видах этих Handle, что ли...

Вот конкретный кусок кода, который хотелось бы сделать рабочим (lbl здесь или :=TLabel, или TStaticText):

procedure TForm1.RunTimeLabelMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin lbl:=Sender as TStaticText;
if ssCtrl in Shift then begin
SetCapture(lbl.Handle);Capturing := true;
MouseDownSpot.X := x;MouseDownSpot.Y := Y; end;
if ssAlt in Shift then begin lbl.Destroy; end; end;

Michael5 (2005-02-13 20:27:00) [4]
Огромное спасибо! Все работает :)

begin...end (2005-02-13 20:23:00) [5]
> Michael5 (13.02.05 20:18)

> присвоить ее имя переменной btn:TButton

Переменной типа TButton ИМЯ кнопки присвоить нельзя .

> мне нужно определить, какая кнопка нажата

Используйте параметр Sender обработчика - это и есть нажатая кнопка. А её имя будет (Sender as TButton).Name. А если Вы не уверены, что попадание в этот обработчик вызвано именно нажатием кнопки - добавьте впереди проверку: if Sender is TButton then ...

DrPass (2005-02-13 20:20:00) [6]
btn:=Sender as TButton;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »