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… 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… 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

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

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