OnShow у TFrame как сделать?

← →
DVM © (2006-10-05 11:15) [0]

сабж.

← →
clickmaker © (2006-10-05 11:19) [1]

WndProc, WM_SHOWWINDOW

← →
DVM © (2006-10-05 11:19) [2]

ясно

Еще можно так:

type
TViewFrame = class(TFrame)
lblMain: TLabel;
private
procedure CMShowingChanged(var M: TMessage); message CM_SHOWINGCHANGED;
public
{ Public declarations }
end;

implementation

{$R *.dfm}

procedure TViewFrame.CMShowingChanged(var M: TMessage);
begin
inherited;
if Showing then
begin
// Show
end
else
begin
// Hide
end;
end;

OnShow у TFrame как сделать? Найти похожие ветки