Delphi - MessageBox - default tlačítko

  if Application.MessageBox('Chcete naozaj vymazať záznam o klientovi?',
   'Varovanie', MB_ICONWARNING + MB_YESNO) = mrYes then
    Table.Delete;

A teraz ako v tom dosiahnem, aby bolo Nie ako základné? Viem, že na to bola nejaká konštanta, lebo som to niekde už myslím videl, ale neviem aká.

Jsou zobrazeny jen nové odpovědi. Zobrazit všechny

Předmět	Autor	Datum
if Application.MessageBox(0, 'Chcete naozaj vymazať záznam o klientovi?', 'Varovanie', MB_ICONWARNIN… nový pme 21.05.2006 18:58	pme	21.05.2006 18:58
A čo tak: if Application.MessageBox(0, 'Chcete naozaj vymazať záznam o klientovi?', 'Varovanie', [M… nový msx. 21.05.2006 19:31	msx.	21.05.2006 19:31
Mýliš si to s MessageDlg ;-) poslední pme 21.05.2006 19:48	pme	21.05.2006 19:48
Ďakujem páni, presne tú konštantu som hľadal. Ja som skúšal MB_DEFAULTNO a to bolo zle. Na presný ná… nový msx. 21.05.2006 19:39	msx.	21.05.2006 19:39

if Application.MessageBox(0, 'Chcete naozaj vymazať záznam o klientovi?',
 'Varovanie', MB_ICONWARNING or MB_YESNO or MB_DEFBUTTON2) = mrYes then
  Table.Delete;

A čo tak:

if Application.MessageBox(0, 'Chcete naozaj vymazať záznam o klientovi?',
 'Varovanie', [MB_ICONWARNING, MB_YESNO, MB_DEFBUTTON2]) = mrYes then
  Table.Delete;

Tak to myslím robí samotné Delphi.

Edit: Práve som to skúsil (ten môj zápis) a Delphimu to nešmakuje. To ma len pomýlil zápis v Object Inspectore. Ale vyzerá to takto pekne, nie?

Mýliš si to s MessageDlg

Ďakujem páni, presne tú konštantu som hľadal. Ja som skúšal MB_DEFAULTNO a to bolo zle. Na presný názov som si nevedel spomenúť a nie vždy v Code Insight sa objaví tá správna voľba.

Zpět do poradny Odpovědět na původní otázku Nahoru