Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.133 c
2-1338069326
novichek
2012-05-27 01:55
2013.03.22
DSPack SampleGrabber


1-1275549451
ford
2010-06-03 11:17
2013.03.22
чтение текстовых данных из двоичных файлов (PDF)


15-1329492368
поверфулл
2012-02-17 19:26
2013.03.22
Подскажите путевый учебник по HTML


15-1327133819
Inovet
2012-01-21 12:16
2013.03.22
DrWeb 7.0 постоянное обращение к диску


2-1336127281
__QWERTY
2012-05-04 14:28
2013.03.22
как правильно очистить TList ы, чтобы не было утечек памяти