Forum: Algorithmen, Datenstrukturen und Klassendesign
by Jazzman_Marburg,
29. Nov 2010
Hi Klaus,
ja -- vielen Dank!
Es tut!
Ein zwei Kleinigkeiten zu ändern -- aber es tut's!
Lieben Dank für Deine Mühe :thumb:
Gruß
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Jazzman_Marburg,
28. Nov 2010
(Sehe gerade die Antwort von himitsu -- ich glaube, das war der richtige Hinweis (Self). In der eigenen KLasse ist der Sender tatsächlich nicht nötig. Danke!!)
Hi!
1. TCustomControl2. Ja. Problem ist, das ich schon im Interface kein:
PROCEDURE MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); OVERRIDE;
anlegen kann: "Deklaration von...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Jazzman_Marburg,
28. Nov 2010
Vielen Dank -- den Ansatz habe ich wohl verstanden. Ber bei der Umsetzung hagelt es noch Probleme...
PROCEDURE MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); OVERRIDE; // Wieso geht das nicht?
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); OVERRIDE;
In meiner Klasse hatte ich das Event "MouseUp" wie oben...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Jazzman_Marburg,
28. Nov 2010
Hallo Gemeinde,
ich habe gerade garkeine rechte Idee wie ich folgendes realsiere -- und hoffe auf eure Kommentare:
Ich erzuege in meiner Klasse ein SpeedButton und stelle ihn auf einem Panel dar. Wenn ich nun mit der Maus auf diesen Button klicke und die Maus versetze wird der Button an die neuen Maus Position versetzt. Soweit prima.
Ich möchte aber nun, dass der Button während des Versetzens...