Форум: "Начинающим";
Текущий архив: 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.057 c