Тема: Обращение к процедурам на форме
Показать сообщение отдельно
  #2  
Старый 13.05.2012, 09:45
Аватар для Yurk@
Yurk@ Yurk@ вне форума
Специалист
  
Регистрация: 07.09.2007
Адрес: Украина, г. Днепропетровск
Сообщения: 892
Версия Delphi: 7 + ОгнеПтица
Репутация: выкл
По умолчанию
Код:
procedure procedure1;
begin
if Form1.Label6.Caption<>('') then
  if MessageDlg('Файл не сохранён. Сохранить?',mtConfirmation,[mbYes, mbNo],0)=6
    then Form1.N10Click(nil);
end;
__________________
Поживу - увижу, Доживу - узнаю, Выживу - учту.
[P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
Ответить с цитированием