Как отловить смену фокуса для всех контролов?
Falk0ner, вс, 06/07/2008 - 15:34.
procedure TForm1.ActiveControlChange(Sender: TObject);
{©Drkb v.3(2007): www.drkb.ru}
begin
Caption := TScreen(Sender).ActiveForm.ActiveControl.Name;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.OnActiveControlChange := ActiveControlChange;
end;
{©Drkb v.3(2007): www.drkb.ru}
begin
Caption := TScreen(Sender).ActiveForm.ActiveControl.Name;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.OnActiveControlChange := ActiveControlChange;
end;
Автор: p0s0l
Взято с Vingrad.ru http://forum.vingrad.ru
Отправить комментарий