Завести процедуру даблклик

← →
b86 (2010-10-14 14:27) [0]

Здравствуйте. У меня картинка перемещается по форме драг-дропом, мне надо на эту картинку повесить даблклик, так что бы она работала? клик правой кнопкой занят. нужен именно даблклик

← →
Anatoly Podgoretsky © (2010-10-14 14:29) [1]

> b86 (14.10.2010 14:27:00) [0]

А что ты для этого сделал?

← →
b86 (2010-10-14 14:36) [2]

воспользовался стандартным способом. он не работает, по этому спрашиваю.

← →
brother © (2010-10-15 06:11) [3]

> воспользовался стандартным способом. он не работает,

покажи код... и что именно не работает?

← →
b86 (2010-10-15 09:19) [4]

procedure TForm4.Image0DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
with Source as TImage do
begin
Left:=X;
Top:=Y;
end;
end;

procedure TForm4.Image0DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
accept:=Source is Timage;
end;

procedure TForm4.Image1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
label3.Caption:="Клик правой работает"
end;

procedure TForm4.Image1Click(Sender: TObject);
begin
label3.Caption:="Привет"
// "Привет" мне и не пишет
end;

← →
sniknik © (2010-10-15 09:26) [5]

// "Привет" мне и не пишет
убери "автоподьем" "драга" у компонента и стартуй его тут "вручную" после "привета" вместо комментария...

нафига сложные схемы придумывать когда "проблема" пара пустяков, решается чтением хелпа по "стандартному способу".

> решается чтением хелпа по "стандартному способу".

Хелпу вообще для ботаников написали, крютые пацанчики им не пользуются.

PS. Мне вот интересно, значит обработчик OnClick это блондинко умудрилось как-то создать, а вот рядом обработчик OnDblClick не заметило...

> а вот рядом обработчик OnDblClick не заметило...
может и заметило, но оно тоже не работает при "стандартном способе". просто сказать об этом не удосужилось.

Завести процедуру даблклик Найти похожие ветки