Forum » Programiranje » 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 (v knjigi piše, sam je čudn tist napisan...)
Kako naj s funkcijo prikažem MessageDlg?
HVALA...
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 (v knjigi piše, sam je čudn tist napisan...)
Kako naj s funkcijo prikažem MessageDlg?
HVALA...
- spremenil: c3R4R ()
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....
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 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!!!
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.|-|-|-|-|
-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
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 ...
Tema | Ogledi | Zadnje sporočilo | |
---|---|---|---|
Tema | Ogledi | Zadnje sporočilo | |
» | Delphi - izdelava igreOddelek: Programiranje | 1160 (933) | Nextor |
» | Delphi - kako prepreči prečiti več zaporednih klikov gumbaOddelek: Programiranje | 1126 (1049) | LoneWolf |
» | RichEdit komponenta- tiskanjeOddelek: Programiranje | 883 (794) | mile |
» | Delphi problem- zapiranje programaOddelek: Programiranje | 1153 (1099) | c3R4R |
» | Win32 API in C++Oddelek: Programiranje | 1552 (1423) | Monster |