Forum: Programmieren allgemein
by roga,
14. Apr 2011
Ich habe Dir mal etwas aus meiner Komponente für eine elektronische Pinnwand rauskopiert - um Dir nicht die Arbeit abzunehmen, musst Du den Weg selber finden. Programmieren ist oft auch Kopfzerbrechen...
private
FDownX,
FDownY: integer;
FDragging: Boolean;
procedure TPinItem.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Forum: Programmieren allgemein
by roga,
14. Apr 2011
Evtl. findest Du hier http://www.swissdelphicenter.ch/de/showcode.php?id=122 eine Anregung.
:gruebel:Weshalb gibt es eigentlich so eine tolle Erfindung wie die Suchfunktion?