Auf RETURN-drücken im Edit reagieren

[TStringlist]

also der Code unten tut's bei mir jedenfalls. Damit unterbleibt einmal dieses "DING" und andere Aktionen könntest du da ebenfalls noch auszuführen.

Delphi-Quellcode:

var
  Form1: TForm1;
  OldWndProc : cardinal;

implementation

{$R *.dfm}


function Edit1WndProc(hWnd1: hWnd; uMsg: UInt; wP: WParam; lP : LParam) : LResult; stdcall;
begin
  case uMsg of
    // ...
    wm_Char : if wP = 13 then begin
                wp := 0;
                // und eine sonstige Aktion!
              end;
  end; { of case }
  Result := CallWindowProc(Pointer(OldWndProc), hWnd1, uMsg, wP, lP);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  OldWndProc := SetWindowLong(TWinControl(Edit1).Handle,GWL_WndProc,integer(@Edit1WndProc));
end;

...oder wie meintest du das genauer mit dem Focus?