رویداد middle click در دلفی

[smhsmh]

با سلام
می خواستم بدونم چه طوری می تونم تو دلفی رویداد middle click رو برای فرم برنامم بیارم؟
اصلا امکانش هست ؟

[حمیدرضاصادقیان]

سلام.شما در رویداد onkeydown با استفاده از SHift میتوانید از کلید های ترکیبی استفاده کنید.
مانند:


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssmiddle in shift) then
showmessage('middle');
end;

خود مجموعه اش هم شامل این کلیدهاست.


TShiftState = set of (ssShift, ssAlt, ssCtrl,
ssLeft, ssRight, ssMiddle, ssDouble);

[delphiprog3000]

با سلام.
دوست عزیز شاید این سورس هم بتونه به شما کمک کنه.

موفق باشید..............