habe jetzt eine lösung gefunden wenn auch eine skurile die ich mir nicht erkären kann hoffe ihr könnt mir helfen ..
der oben genannte code funtioniert wenn man es so macht
Delphi-Quellcode:
procedure TMainForm.LogKeyPress(Sender: TObject; Key: Char);
begin
if inttostr(GetForegroundWindow) <> lbltest.Caption then memo1.Lines.Add(activecaption);
Memo1.SelText:= Key;
lbltest.Caption := inttostr(GetForegroundWindow);
end;
mit einem label als zwischenspeicher .. kein plan wieso aber anders geht es bei mir nicht.
p.s.: sry für den doppelpost
so habe den fehler musste einfach die variable außerhalb der prozedur eintragen