Okienka Builder

Krzysztof Miller
  • Rejestracja:prawie 5 lat
  • Ostatnio:ponad 4 lata
  • Postów:10
0

Witam. Jak zrobić żeby poza tym co jest po kliknięciu w okienku "NO" robiło się po prostu Application->Terminate();

Kopiuj
void __fastcall TForm1::Zakocz1Click(TObject *Sender)
{
if(Application->MessageBoxA(
"Czy zapisac plik przed wyłączeniem aplikacji?","Potwierdź",
 MB_YESNOCANCEL | MB_ICONQUESTION)==IDYES)
 {
Form1->Zapisz1Click(MainMenu1);
Application->Terminate();
 }
}

Builder 6

edytowany 1x, ostatnio: Krzysztof Miller
tajny_agent
  • Rejestracja:ponad 11 lat
  • Ostatnio:ponad rok
  • Postów:1340
3

Wyrzuć Application->Terminate() poza if?


"I love C++. It's the best language in the world right now for me to write the code that i need and want to write"
~ Herb Sutter
AK
prorok cy ki ciort ...
Krzysztof Miller
  • Rejestracja:prawie 5 lat
  • Ostatnio:ponad 4 lata
  • Postów:10
0

Jak zrobić że gdy klikniemy w okienku "CANCEL" to program się nie wyłączy?

Kopiuj

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
if(Application->MessageBoxA(
"Czy zapisac plik przed wyłączeniem aplikacji?","Potwierdź",
 MB_YESNOCANCEL | MB_ICONQUESTION)==IDYES)
 {
Form1->Zapisz1Click(MainMenu1);
 }
}

tajny_agent
  • Rejestracja:ponad 11 lat
  • Ostatnio:ponad rok
  • Postów:1340
1

Sprawdź czy zwrócona wartość z MessaeBoxA jest różna od IDCANCEL.


"I love C++. It's the best language in the world right now for me to write the code that i need and want to write"
~ Herb Sutter
_13th_Dragon
  • Rejestracja:prawie 20 lat
  • Ostatnio:12 dni
2
Kopiuj
Word ret=Application->MessageBoxA("Czy zapisac plik przed wyłączeniem aplikacji?","Potwierdź", MB_YESNOCANCEL | MB_ICONQUESTION);
if(ret==IDYES) Form1->Zapisz1Click(MainMenu1);
else if(ret==IDCancel) Action=caNone;

Wykonuję programy na zamówienie, pisać na Priv.
Asm/C/C++/Pascal/Delphi/Java/C#/PHP/JS oraz inne języki.

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.