Form per Punkt-Eingabe aufrufen

[House]

Hallo,

ich möchte für meinen Editor gerne noch so ne Art "Vorschlags-Popup" realisieren. Kennt man ja aus diversen Entwicklungsumgebungen. Nun ist es so, dass ich die Form gerne aufrufen möchte, wenn man im SynEdit einen Punkt setzt.

Habe es schon mit

Code: Alles auswählen

procedure TForm1.SynEdit1Change(Sender: TObject);
begin
  if SynEdit1.Text='.' then begin
  phplist.Show;
  end
end;

und auch mit

Code: Alles auswählen

procedure TForm1.SynEdit1KeyPress(Sender: TObject; var Key: char);
begin
 if Key = #107 then begin
 phplist.Show;
 end
end;

Jedoch wird diese phplist nicht angezeigt. Stattdessen setzt er mir beim ersten Codeschnippsel einfach nur den Punkt ins SynEdit.

[_X_]

Code: Alles auswählen

procedure TForm1.SynEdit1KeyPress(Sender: TObject; var Key: char);
begin
  if key = '.' then begin
    showmessage('KeyPress funzt');
  end;
end;

Geht bei mir.

mfg _X_

[House]

Danke. Jetzt geht´s.