Изменение заголовка формы

← →
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(и не динамик)

> 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;

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

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

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