|
Registriert seit: 12. Dez 2004
Ort: Wien, Österriech
893 Beiträge
Delphi 6 Enterprise
|
Re: Lazarus + OnMouseUp
23. Mär 2005, 21:08
Na ja, Lazarus ist "etwas" anders als Delphi, und so geht´s:
Delphi-Quellcode:
//...
procedure MyDown(Sender: TOBject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
//...
OnMouseDown := @MyDown;
Katura Haris
Es (ein gutes Wort) ist wie ein guter Baum, dessen Wurzel fest ist und dessen Zweige in den Himmel reichen.
|