Wenn . dann Fenster öffnen wie bei Delphi

[Sharky]

Zitat von Christian18:

...Wie mache ich das???

Eigentlich hat static_cast schon alle Stichwörter geliefert

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 500; // Halbe Sekunde verzögerung
  Timer1.Enabled := False;
end;

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (key = '.') then  // Es wurde ein Punkt eigegeben
  begin
    Timer1.Enabled := True;
  end
  else
  begin
    Timer1.Enabled := False;
  end;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  ShowMessage ('blubb'); // Hier kommt der Aufruf für dein "Code-Fenster" hin
end;