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

Вниз

Изменение заголовка формы   Найти похожие ветки 

← →
webpauk ©   (2012-06-25 17:13) [0]

как отследить изменение Form.Caption

---

← →
AV ©   (2012-06-25 17:35) [1]

procedure SetCaption(const Value: TCaption);
 public      { Public declarations }
   property Caption: TCaption write SetCaption;

procedure TfrmExportCDR.SetCaption(const Value: TCaption);
begin
 TForm(Self).Caption := Value;
 ShowMessage( "");
end;

---

← →
AV ©   (2012-06-25 17:36) [2]

самому, конечно, указывать просто Caption
т.е.
procedure TfrmExportCDR.btnExportCurrentFilialClick(Sender: TObject);
begin
//  CDREx.ExportOneFilial(73);
 Caption := "dd";

---

← →
webpauk ©   (2012-06-25 17:41) [3]

> AV ©   (25.06.12 17:35) [1]

уже нашел!
правильно:

procedure WMSetText(var Msg : TWMSetText); message WM_SETTEXT;

procedure TMyForm.WMSetText(var Msg : TWMSetText);
begin
 inherited;
 ShowMessage(Caption);
end;


---

← →
AV ©   (2012-06-26 09:00) [4]

да, работает..
но как?
какой еще inherited?!?
Там же не virtual(и не динамик)

---

← →
Anatoly Podgoretsky ©   (2012-06-26 09:39) [5]

> AV ©   (26.06.12 09:00) [4]

inherited - не имеет отношешия к виртуальным методам, ему они до лампочки и пример из справки
procedure TTextBox.WMChar(var Message: TWMChar);
begin
 if Message.CharCode = Ord(#13) then
   ProcessEnter
 else
   inherited;
end;

---

← →
oldman ©   (2012-06-26 12:19) [6]

> как отследить изменение Form.Caption


оно у тебя меняется абы как?
всяко в коде есть строка смены капшена, после нее и вызови нужную функцию...

---

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

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

Наверх

Память: 0.45 MB
Время: 0.123 c