Einzelnen Beitrag anzeigen

Alaitoc

Registriert seit: 24. Okt 2008
263 Beiträge
 
Delphi 7 Enterprise
 
#2

Re: Combobox mit Treeview, ALT+TAB und Co.

  Alt 19. Aug 2009, 16:37
Grausam wenn man stundenlang sucht...es ins Forum stellt und es dann mit ein paar Codezeilen behebt

Delphi-Quellcode:
type
  TFocusLostEvent = procedure (Sender:TObject) of Object;

Type
  TFocusEdit = class (TEdit)
  Private
    m_pmfnFocusLost :TFocusLostEvent;
    procedure WMKillFocus(var Message: TWMKillFocus); message WM_KILLFOCUS;
  Public
    property OnFocusLost:TFocusLostEvent read m_pmfnFocusLost write m_pmfnFocusLost;
  End;

---

{ TFocusEdit }

procedure TFocusEdit.WMKillFocus(var Message: TWMKillFocus);
begin
  inherited;
  if Assigned(m_pmfnFocusLost) then
  begin
   OnFocusLost(Self);
  end;
end;
Und dabei war es so simpel ;_;
  Mit Zitat antworten Zitat