RomanTim
Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Vygose
А что ты понимаешь под фокусом? Tab на StaticText останавливается (проверял вызовом контекстного меню с клавиатуры), другое дело, что отображение не меняется.
Визуализацию можно было бы сделать ручками по событиям OnEnter, OnExit, но непонятно почему они в паблишед не вынесены, хотя это можно обойти, написав наследника, у которого открыть эти события, а в OnCreate формы, приведя статик к этому наследнику, назначить свои обработчики:
Код:
TForm1 = class(TForm)
StaticText1: TStaticText;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure StaticTextEnter(Sender: TObject);
procedure StaticTextExit(Sender: TObject);
public
{ Public declarations }
end;
implementation
type
TStaticTextEx = class(TStaticText)
public
property OnEnter;
property OnExit;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
TStaticTextEx(StaticText1).OnEnter := StaticTextEnter;
TStaticTextEx(StaticText1).OnExit := StaticTextExit;
end;
procedure TForm1.StaticTextEnter(Sender: TObject);
begin
StaticText1.Font.Style := [fsUnderline];
end;
procedure TForm1.StaticTextExit(Sender: TObject);
begin
StaticText1.Font.Style := [];
end; |
|
