Forum: Object-Pascal / Delphi-Language
Delphi
by daredd,
19. Mär 2009
Ich habe das jetzt so zu stehen, also ohne Schleife:
procedure TFormEditor.TheImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var i : integer;
begin
for i := 0 to List.Count - 1 do
if (List.GetItem(i) is TMPoint) then
if TMPoint(List.GetItem(i)).Selected then begin
TMPoint(List.GetItem(i)).ResetPos(X, Y);
Forum: Object-Pascal / Delphi-Language
Delphi
by daredd,
19. Mär 2009
Ok, ich werde das mal ausprobieren.
Forum: Object-Pascal / Delphi-Language
Delphi
by daredd,
18. Mär 2009
List ist eine Liste in der TMPoints gespeichert sind, die wiederum Die Punkte auf dem Image darstellen.
Soll ich soll ich den die schleife sonst verlassen?
Forum: Object-Pascal / Delphi-Language
Delphi
by daredd,
18. Mär 2009
Hallo Freunde,
ich habe mal wieder ein Problem. In meinem Programm habe ich ein TImage auf dem ich nun schon Punkte setzen kann mit MouseDown.
Nun will ich aber diesen die Position des Punktes veränder, dazu dachte ich das ich den bestimme ob der Punkt ausgewählt ist (also selected), wenn ja soll er den Punkt so lange der Maus hinterlaufen bis ich ihn wieder DeSelecte.
Ich hab mir das...