Unschönes Perform (WM_NEXTDLGCTL,0,0) wenn edit dis-/enabled

[Luckie]

Ich benutze immer folgende Routine um Windows Kontrolls zu deaktivieren:

Delphi-Quellcode:

function EnableControl(hParent: THandle; ID: DWORD; Enable: Boolean): LongBool;
var
  hWnd                   : THandle;
begin
  hWnd := GetFocus;
  // jump to next control if control to disable has the focus
  // otherwise we will get stuck and TAB won't work
  if hWnd = GetDlgItem(hParent, ID) then
    SendMessage(hParent, WM_NEXTDLGCTL, 0, 0);
  result := EnableWindow(GetDlgItem(hParent, ID), Enable);
end;