form2 de bekleyip form3 ü açma

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
makprogrammer
Üye
Mesajlar: 11
Kayıt: 30 Eki 2016 09:05

form2 de bekleyip form3 ü açma

Mesaj gönderen 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
Üye
Mesajlar: 81
Kayıt: 09 Tem 2010 02:55

Re: form2 de bekleyip form3 ü açma

Mesaj gönderen 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
Kıdemli Üye
Mesajlar: 1650
Kayıt: 12 Eyl 2015 12:45

Re: form2 de bekleyip form3 ü açma

Mesaj gönderen ertank »

makprogrammer yazdı: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
Üye
Mesajlar: 11
Kayıt: 30 Eki 2016 09:05

Re: form2 de bekleyip form3 ü açma

Mesaj gönderen 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
Üye
Mesajlar: 14
Kayıt: 13 May 2016 04:49

Re: form2 de bekleyip form3 ü açma

Mesaj gönderen 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
Üye
Mesajlar: 11
Kayıt: 30 Eki 2016 09:05

Re: form2 de bekleyip form3 ü açma

Mesaj gönderen makprogrammer »

Teşekkür ederim, çok makbule geçti :bravo:
erolturk
Üye
Mesajlar: 14
Kayıt: 13 May 2016 04:49

Re: form2 de bekleyip form3 ü açma

Mesaj gönderen erolturk »

Rica ederim
Cevapla