Hallo miteinander
Einen kürzeren Titel für diesen Beitrag ist mir nicht eingefallen...
Ich habe zwei verschiedene Verhaltensweisen für den von mir aus gleichen Code... könnt ihr mir den Unterschied erklären?
Ich verschiebe den Code anhand dieses Beispieles:
http://www.swissdelphicenter.ch/de/showcode.php?id=429
Die Prozedur sieht halboriginal folgend aus (ich verschiebe ein Control nur auf der Y-Achse):
Delphi-Quellcode:
procedure ControlMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
if FDragging then begin
with Sender as TControl do
begin
Top := Y - FDownY + Top;
end;
end;
end;
Funktioniert einwandfrei. Nun habe ich die "with"-Verschachtelung entfernt, da mir diese grundsätzlich unsymphatisch sind
Delphi-Quellcode:
procedure ControlMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
ct: TControl;
begin
if FDragging then begin
ct:= Sender as TControl;
ct.Top:= Y - FDownY + Top;
// --ODER--
TControl( Sender ).Top:= Y - FDownY + Top;
end;
end;
Das Ergebnis: Verschiebe ich das Control wird es während dem verschieben nicht oder nur flackernd angezeigt und ist am schluss an einem anderen Ort als es sein sollte...
Worin liegt hier der unterschied zwischen dem "with-cast" und den anderen beiden?
Vielen Dank!
RedOne