MessageDig

← →
HelloWord (2006-08-03 20:26) [0]

Как обработать нажатие кнопки у формы генерируемой MassageDig наприме mbOK ?

← →
begin...end © (2006-08-03 20:28) [1]

if MessageDlg(...) = mrOk then ...

?

← →
C@N © (2006-08-04 18:22) [2]

case MessageDLG("Ты МедвеД???",mtConfirmation,[mbYes,mbNo],0) of
mrYes:
Begin
Form1.Caption:="ПревеД!!!";
End;
mrNo:
Begin
Form1.Caption:="ПакА!!!";
End;
mrCancel:
Begin
showmessage("Не медведам фхот васприщ0н!!!!");
application.terminate;
end;
end;

если не понятно RTFM!!!

← →
StriderMan © (2006-08-04 18:26) [3]

> C@N © (04.08.06 18:22) [2]

а нафига столько begin-end"ов?

> а нафига столько begin-end"ов?

Уважает...

to [3] привычка {} после начала изучения С++
to [4] и пригодится если увеличивать действия на батон.... )))

MessageDig Найти похожие ветки