Hallo himitsu,
danke für Deine Antwort.
Das Fenster wird in einer Prozedur aufgerufen, welche bei Anwahl eines Menüpunktes eines PopUpMenues ausgeführt wird. Das PopUpMenue erscheint nur, wenn eine AktLine ausgewählt wurde. Demzufolge muss AktLine <> Nil erfüllt sein. (Ich hätte diese Abfrage eigentlich auch weglassen können.)
Delphi-Quellcode:
procedure TMainForm.LineShiftClick(Sender: TObject);
var
ShiftBy:Double;
Txt : String;
begin
if AktLine <> Nil then
begin
ShiftBy:=10;
Txt:=FloatToStr(ShiftBy);
if InputQuery('Leitung verschieben', 'Verschieben der Leitung um [m]:',Txt)
and TryStrToFloat(Txt, ShiftBy) then
begin
AktLine.ShiftLine(ShiftBy);
IsModified:=True;
WorldBox.Invalidate;
end;
end;
end;