MessageDLG bez dugmadi

[ XGhost @ 30.04.2006. 10:46 ] @

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

[ savkic @ 30.04.2006. 12:31 ] @

> 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.

[ XGhost @ 30.04.2006. 20:34 ] @

Jel mozda imate nekakav kratak primjer koda

[ savkic @ 01.05.2006. 08:19 ] @

> 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;