Текущий архив: 2006.11.19;
Скачать: CL | DM;

Вниз

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]

ясно

---

← →
DVM ©   (2006-10-05 11:29) [3]

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

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;

---

Страницы: 1 вся ветка

Текущий архив: 2006.11.19;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.077 c