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

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

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

Сохранение файла [D2005, XP]

-=MaxDelphi=- © (2007-04-14 19:50:00)
Пожалуйста, подскажите, как сделать диалоговое окно сохранения файла, т.е где есть такие кнопки Да, Нет, Отмена.

..::KraN::.. (2007-04-17 13:26:00) [1]

> а просто форму с кнопочкмми создать не судьба? компоненты
> в делфе такие есть

А зачем заморачиваться то??? Проще как мне здесь объяснили! :)

TIF (2007-04-17 13:02:00) [2]
а просто форму с кнопочкмми создать не судьба? компоненты в делфе такие есть

{RASkov} (2007-04-17 12:59:00) [3]
> [15] Плохиш © (17.04.07 12:19)

Да сколько раз встречал "учителей" которые "учат", только для того, что бы получать зарплату. :( Но не все-же такие....
С другой стороны, тот кто хочет научится, тому собственно пофик какой учитель - он научится.....

Плохиш (2007-04-17 12:19:00) [4]

> {RASkov} (16.04.07 22:40) [13]

> -=MaxDelphi=- (17.04.07 12:05) [14]

Плохому танцору известно что мешает...

-=MaxDelphi=- (2007-04-17 12:05:00) [5]

> им самим бы еще учится....:)

ДА, да..

{RASkov} (2007-04-16 22:40:00) [6]
> [12] -=MaxDelphi=- (16.04.07 21:11)
> Почему же!

Извени, не хотел обидеть, даже смайл поставил... Просто кто учит, им самим бы еще учится....:)

-=MaxDelphi=- (2007-04-16 21:11:00) [7]

> И наверное, это единственное, что заполнилось на уроках.
> ...Да? :)

Почему же!

Gydvin (2007-04-15 19:57:00) [8]
Или MessageBoxA

case MessageBoxA(handle,'Сохранить?','Диалог',3)
6: Сохраняем;
7: Отказываемся;
2: Отменяем;
end;

> Просто нас так учили на уроках информатики!!! Вот и привык

Не убедительно

{RASkov} (2007-04-15 12:31:00) [9]
> Просто нас так учили на уроках информатики!!! Вот и привык

И наверное, это единственное, что заполнилось на уроках....Да? :)

Плохиш (2007-04-15 12:07:00) [10]

> Просто нас так учили на уроках информатики!!! Вот и привык

Не правильно - 10 бегинов идущие подряд это круче.

-=MaxDelphi=- (2007-04-15 11:55:00) [11]

> {RASkov}
</I
> Ты бы хоть в читабельный вид бы привел код... begin begin
> - нафик так делать?

Просто нас так учили на уроках информатики!!! Вот и привык :(

{RASkov} (2007-04-14 21:01:00) [12]
Ну вот.... [5] не заметил... почти тоже самое. :)

{RASkov} (2007-04-14 20:59:00) [13]
> [2] -=MaxDelphi=- (14.04.07 20:00)

Ты бы хоть в читабельный вид бы привел код... begin begin - нафик так делать?

case MessageDlg('Сохранить изменения в файле '+' '+ExtractFileName(fail)+'?', mtWarning, mbyesnoCancel, 0) of mrYes: if fail='' then if SaveDialog1.Execute then SynEdit1.Lines.SaveToFile(SaveDialog1.FileName) else CanClose:=False else SynEdit1.lines.SaveToFile(fail); mrCancel: CanClose:=False; end;

Eraser (2007-04-14 20:51:00) [14]
i := MessageDlg('Сохранить изменения в файле '+' '+ExtractFileName(fail)+'?', mtWarning, mbyesnoCancel, 0); case i of mrYes: ; // Код сохранения mrNo: ; // Юзер отказался сохранять end;
ни и т.д.

-=MaxDelphi=- (2007-04-14 20:19:00) [15]

> Eraser

> а в чем ошибка то? и что требуется от кода?

От кода требуется правильной работы: если нажата кнопка "Да", то файл сохраняется, если "Нет", то файл не сохраняется, а если "Отмена", то происходит возврат в главную форму, короче как в "Блокноте".

Eraser (2007-04-14 20:05:00) [16]
> [2] -=MaxDelphi=- (14.04.07 20:00)

а в чем ошибка то? и что требуется от кода?

-=MaxDelphi=- (2007-04-14 20:00:00) [17]

> Eraser

У меня здесь что-то типа того
If Form1.StatusBar1.Panels[2].Text='Текст был изменён' then begin begin If MessageDlg('Сохранить изменения в файле '+' '+ExtractFileName(fail)+'?', mtWarning, mbyesnoCancel, 0)=mrCancel then CanClose:=False; end; If MessageDlg('Сохранить изменения в файле '+' '+ExtractFileName(fail)+'?', mtWarning, mbyesnoCancel, 0)=mrYes then If fail='' then If SaveDialog1.Execute then SynEdit1.Lines.SaveToFile(SaveDialog1.FileName) else SynEdit1.lines.SaveToFile(fail);
Чё я здесь намудрил не знаю, может кто поможет??

Eraser (2007-04-14 19:54:00) [18]
MessageDlg + F1

FResult := MessageDlg(FText, FDlgType, FButtons, 0);

Наверх

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