Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Karstadt,
20. Jun 2006
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
x_v := x; // globale variable
y_v := y; // globale variable
TImage(Sender).Tag := 1;
end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Karstadt,
15. Jun 2006
Hallo. Ich habe einen Form 300,300 dort ist ein TImage. Wenn das TImage größer ist als die form, will ich diese per Maus verschieben. (nach oben, nach unten). Nun überlege ich mir wie ich mir das am leichtesten mache. Per Drag und Drop..? Problem ist nur ich muss wissen wo die "verschiebung endet, wenn die höhe = formular.höhe...
Ich hoffe ich konnte mein Problem verständlich schildern.