Форум: "Основная";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.053 c