[es] - MessageDLG bez dugmadi

XGhost

Član broj: 33279
Poruke: 331
*.PPPoE-86.sa.bih.net.ba.

+1 Profil

MessageDLG bez dugmadi

^{30.04.2006. u 10:46 - pre 218 meseci}

Jel moguce kreirati MessageDLG bez dugmadi, vec da se poruke zatvore pomocu npr Timera ili
nekog zavrsenog dogadjaja?

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: MessageDLG bez dugmadi

^{30.04.2006. u 12:31 - pre 218 meseci}

> Jel moguce kreirati MessageDLG bez dugmadi, vec da se poruke zatvore pomocu npr Timera ili
> nekog zavrsenog dogadjaja?

Naravno, možeš koristiti CreateMessageDialog pa ručno isključiti svu dugmad i kreirati timer koji će ga zatvoriti posle nekog vremena. Možeš napraviti i alternativni message dialog koji se ponaša poput Delphi MessageDlg ili Windows MessageBox i tu dodati još timer.

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

XGhost

Član broj: 33279
Poruke: 331
*.PPPoE-1239.sa.bih.net.ba.

+1 Profil

Re: MessageDLG bez dugmadi

^{30.04.2006. u 20:34 - pre 218 meseci}

Jel mozda imate nekakav kratak primjer koda

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: MessageDLG bez dugmadi

^{01.05.2006. u 08:19 - pre 218 meseci}

> Jel mozda imate nekakav kratak primjer koda

Evo primera sa CreateMessageDlg, još je potrebno dodati na formu TTimer komponentu, podesiti željeni interval, Enabled svojstvo postaviti na False i povezati OnTimer sa Timer1Timer metodom.

Code:

var
  Dlg: TForm;

procedure TForm1.Button1Click(Sender: TObject);
var
  R: TRect;
begin
  Timer1.Enabled := True;
  dlg := CreateMessageDialog('Proba', mtInformation, []);
  R := TControl(Dlg.FindComponent('Image')).BoundsRect;
  Dlg.ClientHeight := R.Top + R.Bottom;
  dlg.ShowModal;
  dlg.Free;
  Timer1.Enabled := False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Dlg.Close;
  Timer1.Enabled := False;
end;

Odgovor na temu