19.11.2006, 11:06
общий
это ответ
Здравствуйте, AlexD!
1.
procedure TForm1.PageControl1Change(Sender: TObject);
begin
MessageDlg(‘Вы уверены что хотите сменить тариф?‘,mtConfirmation, [mbYes, mbNo], 0);
end;
2.
procedure TForm1.PageControl1Change(Sender: TObject);
begin
if PageControl1.ActivePage.Caption=‘Тариф1‘ then
MessageDlg(‘Вы уверены что хотите сменить тариф?‘,mtConfirmation, [mbYes, mbNo], 0);
end;