Delphi Obsługa MessageBox z Editów

[Reptile ReX]

Mianowicie chcę Aby użytkownik określił jaki chce otrzymać MessageBox więc zrobiłem 3 Edity i button w Buttonie wpisałem:

MessageBox(0, Pchar(Wiadomosc.Text), Pchar(Uchwyt.Text), MB_ok + MB_IconInformation);

Ok wszystko działa, ale chciałbym, aby też użytkownik mógł Edytować MB_IconInformation na np: MB_IconError, ale poniższy kod nie działa:

MessageBox(0, Pchar(Wiadomosc.Text), Pchar(Uchwyt.Text), MB_ok + Cardinal(Value.Text));

Co powinienem zmienić ?

 

[D.F.]

Ok wszystko działa, ale chciałbym, aby też użytkownik mógł Edytować MB_IconInformation na np: MB_IconError, ale poniższy kod nie działa

MB_ICONINFORMATION, MB_ICONERROR itp. to stałe liczbowe, więc inaczej należy to napisać.

Najłatwiej dać kontrolkę RadioButton i odpowiednia wartość liczbowa dla danego wyboru w instrukcji case ... of ... lub if .. then ... else ....