form2 de bekleyip form3 ü açma

[makprogrammer]

form1 deki buton1 e tıkladıktan sonra form2 yi açıp 30 saniye açık kaldıktan sonra form2nin kapanıp form3 ün açılmasını istiyorum. Yardımcı olursanız sevinirim.

[Okann]

istersen timer kullanarakda yapabilirsin bekleme işlemini

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.Show;
  Application.ProcessMessages;
  Sleep(30000);
  form2.Close;
  form3.Show;
end;

[ertank]

form1 deki buton1 e tıkladıktan sonra form2 yi açıp 30 saniye açık kaldıktan sonra form2nin kapanıp form3 ün açılmasını istiyorum. Yardımcı olursanız sevinirim.

Merhaba,

Az önce cevapladığım soru anladığım kadarıyla birebir sizin sorunuz. Aşağıdaki linkten cevaba ulaşabilirsiniz.
viewtopic.php?f=2&t=36261#p195816

[makprogrammer]

tamam timer kullanarak hallettim sağolun. Bir de bu 30 saniyeyi edit1.text de gösterebilirsem çok iyi olacak, 30 dan geriye doğru saysa. bunu nasıl yaparım?

[erolturk]

Merhabalar!
edit den 30 geri sayma yönteminin örneği aşağıda. Kolay gelsin. (timer ın intervali 1000 olacak)

Kod: Tümünü seç

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm2 = class(TForm)
    Timer1: TTimer;
    Edit1: TEdit;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    FSayac : integer;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
  FSayac := 30;
  Edit1.Text := IntToStr(FSayac);
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  Fsayac := Fsayac - 1;
  Edit1.Text := IntToStr(FSayac);

  if Fsayac = 0 then
    timer1.Enabled := false;

end;

end.

[makprogrammer]

Teşekkür ederim, çok makbule geçti

[erolturk]

Rica ederim