InputQuerry-Fenster erscheint nicht

[SteffenSchm]

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;