|
Registriert seit: 12. Dez 2004
Ort: Wien, Österriech
893 Beiträge
Delphi 6 Enterprise
|
Re: Zwei Komponenten auf einmal verschieben (zur Laufzeit)
27. Feb 2005, 21:37
Delphi-Quellcode:
if (Assigned(Label1) and (Assigned(Edit1)) )then
begin
Label1.Left := Edit1.Left;
Label1.Top := Edit1.Top - Label1.Height;
end;
Nicht getestet.
Katura Haris
Es (ein gutes Wort) ist wie ein guter Baum, dessen Wurzel fest ist und dessen Zweige in den Himmel reichen.
|