» »

Delphi problem- MessageDlg

Delphi problem- MessageDlg

c3R4R ::

Ja, naletel sm na težavo...

Imamo dve vrsti sporočilnih oken:
- ShowMessage
- MessageDlg

Za ShowMessage vem, da prikažemo z:

procedure TForm1.Button3Click(Sender: TObject);
begin
ShowMessage('Kliknil si gumb'); //V oklepaju je lahko poljubno besedilo....
end;

Potem sm pa hotel sprogramirati drugo vrsto sporočilnih oken- MessageDlg- in ne vem kako bi zapisal to s funkcijo:O (v knjigi piše, sam je čudn tist napisan...)

Kako naj s funkcijo prikažem MessageDlg?

HVALA...
  • spremenil: c3R4R ()

mile ::

procedure TForm1.ErrorMsg(msg: string);
begin
MessageDlg(msg,mtError,[mbOK],0 );
end;

YuLcE ::

ups... sm opazo, da je en ze napisal...

LP

Zgodovina sprememb…

  • spremenil: YuLcE ()

c3R4R ::

@YuLcE
Kar napiš kar si mislu...

@mile
To ne dela:

procedure TForm1.Button5Click(Sender: TObject);
begin
MessageDlg(msg,mtError,[mbOK],0 );
end;

end.

Javi mi napako....

mile ::

Logično da ti javi napako....
jst sm ti napisu funkcijo , ki ima parameter msg

procedure TForm1.ErrorMsg(msg: string);
begin
MessageDlg(msg,mtError,[mbOK],0 );
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
ErrorMsg('Težka napaka :)');
end;

Jst ::

hm, jst nisem razumel nobenega!

MessageDlg kličeš takrat, ko hočeš dobiti odziv uporabnika.
To je ali klikne ok, cancel, yes, no, abort, retry, ignore.

MessageDlg kličeš tako:

MessageDlg ( Sporočilo, tipdialoga, knofi(buttons), in še nekaj stvri, zakatere si preberi help);

Torej, hoces uporabniku nekaj povedati oz vprasati in imeti gumbe OK in ignore. Ce klikne ignore potem naj se nekaj izvede:

if MessageDlg('Napaka!',mtError,[mbOK,mbIgnore],0) = mrIgnore then

------

Čisto preprosto. Naj ti pa povem, da če misliš resno delati v delphiju se nauči uporabljati help. Brez tega si zmrznil! Za moje pojme bi poleg tečajev delphija morali organizirati tudi tečaj helpa v delphiju!!!
Islam is not about "I'm right, you're wrong," but "I'm right, you're dead!"
-Wole Soyinka, Literature Nobelist
|-|-|-|-|Proton decay is a tax on existence.|-|-|-|-|

c3R4R ::

@Jst
Sm že rešu problem:

Primer(a):

MessageDlg('Težka napaka', mtWarning, [mbYes, mbNo, mbAbort], 0)

ali

MessageDlg('Težka napaka', mtError, [mbYes], 0)

-------

To dela.. Ajde


Vredno ogleda ...

TemaSporočilaOglediZadnje sporočilo
TemaSporočilaOglediZadnje sporočilo
»

Delphi - izdelava igre

Oddelek: Programiranje
81160 (933) Nextor
»

Delphi - kako prepreči prečiti več zaporednih klikov gumba

Oddelek: Programiranje
51126 (1049) LoneWolf
»

RichEdit komponenta- tiskanje

Oddelek: Programiranje
6883 (794) mile
»

Delphi problem- zapiranje programa

Oddelek: Programiranje
71153 (1099) c3R4R
»

Win32 API in C++

Oddelek: Programiranje
131552 (1423) Monster

Več podobnih tem