|
Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
Delphi 10.2 Tokyo Professional
|
Re: Eigene Komponente - Focus
1. Jan 2008, 16:38
Hi,
Habs jetzt so gemacht, funktioniert aber nicht...
Delphi-Quellcode:
// Verkürzt
TMeineComponente = class
protected
procedure Activate(var Msg: TMessage); message WM_ACTIVATE;
end;
procedure TMeineComponente.Activate(var Msg: TMessage);
begin
inherited;
if Msg.WParamLo = WA_INACTIVE then
Focused := -1;
end;
Michael "Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
|