Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

SaveDialog [D7, XP]

Страницы: < 1 2
fics © (2008-01-28 18:16:00)
Мастера подскажите как быть, хотел сделать вместо ofOverWritePrompt, cвой диалог, в универе сказали чтобы на всех моих диалогах в моей программе была иконка моей апликации(красота это главное!!!)
думал в два счета, а что то неполучается.

Вот к примеру для текста

procedure TMainF.SaveBtnClick(Sender: TObject);
begin
if not SaveDialog.Execute then Exit
else

if FileExists(SaveDialog.FileName) then
begin
MyDialogF.ShowModal;
Exit;
end else

Memo.Lines.SaveToFile(SaveDialog.FileName);
end;

procedure TMyDialogF.CnlBtnClick(Sender: TObject);
begin
//Если кликаем на отмене то опять нужно вызвать SaveDialog
MainF.SaveDialog.Execute;
end;

Но TMyDialogF почему то не исчезает, объясните почему?(CnlBtn - mrCencel) и диалог выгидывает ровно через однин раз.

fics (2008-01-28 19:07:00) [21]

> clickmaker ©

Неа что то глучит

clickmaker (2008-01-28 18:35:00) [22]
думаю, лучше SaveDialog.OnCanClose обрабатывать, в нем проверять FileExists.
если да, то показывать свой месседжбокс и CanClose := false

fics (2008-01-28 18:23:00) [23]

> clickmaker © (28.01.08 18:21) [1]
</I
> свой MessageBox, что-ли?

>
Да, только с Picture решил сделать на базе формы :)

clickmaker (2008-01-28 18:21:00) [24]

> вместо ofOverWritePrompt, cвой диалог, в универе сказали
> чтобы на всех моих диалогах в моей программе была иконка
> моей апликации

свой MessageBox, что-ли?

Palladin (2008-01-28 18:21:00) [25]
я вот нифига не понял как связано

> в универе сказали чтобы на всех моих диалогах в моей программе
> была иконка моей апликации

c

> Но TMyDialogF почему то не исчезает, объясните почему?(

или я не весь проникся Дзеном?

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »