Bilgiler Kaydediliyor Formu..

[Delphi08]

Formumda Kaydet tuşuna basında ayni form üzerinde "Bilgiler Kaydediliyor" diye başka bir form nasıl açabilirim ve işlem bitince nasıl kapatabilirim.

[vedatkaba]

Kod: Tümünü seç

try
         form1:=Tform1.create(self);
         form1.show;
//buraya gerekli olanları yaz
         finally
         form1.free;
end;
end;

[mege]

şunları bi yere kaydet

Kod: Tümünü seç

  var
   WaitForm             : TForm;
   WaitPanel            : TPanel;

      function WaitStart(TheParent : TComponent;sMsg : string ): boolean;
      begin
      Result := False;
      if WaitForm = nil then
         begin
         WaitForm := TForm.Create(TheParent);
         with WaitForm do
              begin
              Width     := 500;
              Height    := 25;
              Top       := trunc((Screen.Height-Height)/2);
              Left      := trunc((Screen.Width-Width)/2);
              BorderStyle := bsNone;
              WaitPanel := TPanel.Create(WaitForm);
              with WaitPanel do
                begin
                Align       := alClient;
                Font.Name   := 'Arial';
                Font.Style  := [fsBold];
                Font.Size   := -18;
                ParentFont  := False;
                Caption     := sMsg;
                Alignment   := taCenter;
                Parent      := WaitForm;
                end;

              SetWindowLong(Handle,GWL_STYLE,GetWindowLong(Handle, GWL_STYLE)
                         and not WS_CAPTION );
              ClientHeight := Height;
              Show;
              Update;
              end;
         Result := True;
         end;
      end;

      function WaitEnd : boolean;
      begin
      Result := False;
      if WaitForm <> nil then
       begin
       WaitForm.Hide;
       WaitForm.Free;
       WaitForm := Nil;
       Result := True;
       end;
      end;

      procedure WaitSetMsg(sMsg : string);
      begin
        WaitPanel.Caption := sMsg;
        WaitForm.Refresh;
      end;

Kod: Tümünü seç

  WaitStart(Application,'Bekle bakem işim var');
  Sleep(10000);
  WaitSetMsg('dur daha bitmedi sabret');
  repeat
  until ServerRunning;
  WaitSetMsg('inşallah başlıcam bi ara :) ');
  Sleep(1000);  
   //işlerin
  WaitSetMsg('hadi geçmiş olsun ');
  Sleep(1000);  
  WaitEnd;

[Delphi08]

Hepiniz sağolun...çok teşekkürler...

[husonet]

Kod: Tümünü seç

try
         form1:=Tform1.create(self);
         form1.show;
//buraya gerekli olanları yaz
         finally
         form1.free;
end;
end;

Evet bu şekilde olabilir ama çok hızlı geçiyor! benim izlediğim yöntem ShowModal ile form u çağırıp formun çok az bir süre gözükmesini sağlayıp kapatıyorum(Bunun içinde timer bileşeninden yararlanıyorum).

Kolay Gelsin...

[yusuf simsek]

@mege kodlar çok güzel ama ne nereye yapışacak onu bi türlü bulamadım....

yani kodların güzelliğinden bi türlü faydalanamadım...
uykusuzum belki de ondan olayı çözemedim

teşekkürler

[abdulkadir]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject); 
var // <- var varya :D  burda tanımla ->
begin 
> ----------
diger tüm kodlar
----------- <
end;