Lütfen Bekleyiniz penceresi

[cemakkus]

Arkadaşlar, TMS VCL ve/veya Devexpress VCL bileşenlerinde, veya Delphi'nin kendisinde, herhangi bir işlem yaparken ekranda gösterebileceğim ve işlem bittiğinde kaybolan "Lütfen Bekleyiniz..." şeklinde diyalog penceresi oluşturmanın kolay bir yolunu bilen var mı?

[mrmarman]

Yeni bir form oluşturup, bu formu show veya hide etmek isteyebilirsiniz.

Show öncesi üzerindeki label, image vb istediğiniz mesaj tipine göre ön hazırlık yaptıracak procedure'ler ile de donatmak projenizi daha profesyonel sunuma taşır.

[cemakkus]

(15-02-2022, Saat: 10:27)mrmarman Adlı Kullanıcıdan Alıntı: Yeni bir form oluşturup, bu formu show veya hide etmek isteyebilirsiniz.

Show öncesi üzerindeki label, image vb istediğiniz mesaj tipine göre ön hazırlık yaptıracak procedure'ler ile de donatmak projenizi daha profesyonel sunuma taşır.

Teşekkür ederim üstad, o zaten aklımda olan bir şey ama projeye bir form eklemeden daha kolay bir yolu var mıdır acaba diye ondan sordum.
Hani Android veya ios cihazlarda cihaz bir işlem yaparken ToastMessage şeklinde bekleme mesajları çıkıyor ya. Belki VCL tarafında da öyle bir şey vardır diye düşünmüştüm.

[RAD Coder]

Bu amaçla Devexpress'te ActivityIndicator kullanılıyor.

[Bay_Y]

(15-02-2022, Saat: 10:37)cemakkus Adlı Kullanıcıdan Alıntı:

(15-02-2022, Saat: 10:27)mrmarman Adlı Kullanıcıdan Alıntı: Yeni bir form oluşturup, bu formu show veya hide etmek isteyebilirsiniz.

Show öncesi üzerindeki label, image vb istediğiniz mesaj tipine göre ön hazırlık yaptıracak procedure'ler ile de donatmak projenizi daha profesyonel sunuma taşır.

Teşekkür ederim üstad, o zaten aklımda olan bir şey ama projeye bir form eklemeden daha kolay bir yolu var mıdır acaba diye ondan sordum.
Hani Android veya ios cihazlarda cihaz bir işlem yaparken ToastMessage şeklinde bekleme mesajları çıkıyor ya. Belki VCL tarafında da öyle bir şey vardır diye düşünmüştüm.

Daha önce forumda konu ile ilgili sorun sorulmuştu. Belki göz atmak istersiniz diye buraya linkini bırakıyorum

https://www.delphican.com/showthread.php?tid=3577.

[mcuyan]

BEn şu şekilde kullanıyorum:
// Wait Formu çağırma

 WaitForm := Twaitform.Create(Self);
 WaitForm.Show;
 WaitForm.Label2.Caption := 'Data Hazırlanıyor..';
 application.ProcessMessages;
 screen.Cursor := crHourglass;
 application.ProcessMessages;

// Wait form uniti:

unit WaitFormf;

interface

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

type
 TWaitForm = class(TForm)
   Label1: TLabel;
   Label2: TLabel;
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
   procedure FormCreate(Sender: TObject);
   procedure FormDestroy(Sender: TObject);
 private
   procedure BeklemeThreadDestroy(Sender: TObject);
 public
   { Public declarations }
 end;

var
 WaitForm: TWaitForm;

implementation

{$R *.dfm}

uses BeklemeT;

Var
 BeklemeThread: TBeklemeThread;

procedure TWaitForm.BeklemeThreadDestroy(Sender: TObject);
begin
 BeklemeThread := nil;
 Inherited;
end;

procedure TWaitForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Self.Free;
 WaitForm := Nil;
end;

procedure TWaitForm.FormCreate(Sender: TObject);
begin
 BeklemeThread := TBeklemeThread.Create(True);
 BeklemeThread.sonlandir := 0;
 BeklemeThread.OnTerminate := BeklemeThreadDestroy;
 BeklemeThread.resume;
end;

procedure TWaitForm.FormDestroy(Sender: TObject);
begin

 if BeklemeThread <> nil then
   BeklemeThread.sonlandir := 1;
 if BeklemeThread <> nil then
   BeklemeThread.WaitFor;
end;

end.

// işlem bitimi:

 WaitForm.Close;
 WaitForm.Free;
 screen.Cursor := crDefault;

[cinarbil]

(15-02-2022, Saat: 09:05)cemakkus Adlı Kullanıcıdan Alıntı: Arkadaşlar, TMS VCL ve/veya Devexpress VCL bileşenlerinde, veya Delphi'nin kendisinde, herhangi bir işlem yaparken ekranda gösterebileceğim ve işlem bittiğinde kaybolan "Lütfen Bekleyiniz..." şeklinde diyalog penceresi oluşturmanın kolay bir yolunu bilen var mı?

Diğer arkadaşların cevabıma ek belki bakış açını değiştirebilir bu kodları @mrmarman beyden aldım ve düzenledim diye hatırlıyorum. emeklerine sağlık


Kullanımı

 TMesaj.Goster( Self               // Parent Form
              , 'İşlem Tamamlandı.'  // Mesajın kendisi
              , 5                  // Bekleme Süresi (Saniye cinsinden)  0 girilirse manuel kapatılmalıdır.
              , False                 // Pencere başlığı gizlensin mi / gizlenmesin mi...
              );

mesaj_.pas ve formu ekte

[forumcuali]

(16-02-2022, Saat: 17:51)cinarbil Adlı Kullanıcıdan Alıntı:

(15-02-2022, Saat: 09:05)cemakkus Adlı Kullanıcıdan Alıntı: Arkadaşlar, TMS VCL ve/veya Devexpress VCL bileşenlerinde, veya Delphi'nin kendisinde, herhangi bir işlem yaparken ekranda gösterebileceğim ve işlem bittiğinde kaybolan "Lütfen Bekleyiniz..." şeklinde diyalog penceresi oluşturmanın kolay bir yolunu bilen var mı?

Diğer arkadaşların cevabıma ek belki bakış açını değiştirebilir bu kodları @mrmarman beyden aldım ve düzenledim diye hatırlıyorum. emeklerine sağlık


Kullanımı

 TMesaj.Goster( Self               // Parent Form
              , 'İşlem Tamamlandı.'  // Mesajın kendisi
              , 5                  // Bekleme Süresi (Saniye cinsinden)  0 girilirse manuel kapatılmalıdır.
              , False                 // Pencere başlığı gizlensin mi / gizlenmesin mi...
              );

mesaj_.pas ve formu ekte

Yok bunlar @uparlayan Beyin kodları 

[cinarbil]

(16-02-2022, Saat: 19:09)forumcuali Adlı Kullanıcıdan Alıntı:

(16-02-2022, Saat: 17:51)cinarbil Adlı Kullanıcıdan Alıntı: Diğer arkadaşların cevabıma ek belki bakış açını değiştirebilir bu kodları @mrmarman beyden aldım ve düzenledim diye hatırlıyorum. emeklerine sağlık


Kullanımı

 TMesaj.Goster( Self               // Parent Form
              , 'İşlem Tamamlandı.'  // Mesajın kendisi
              , 5                  // Bekleme Süresi (Saniye cinsinden)  0 girilirse manuel kapatılmalıdır.
              , False                 // Pencere başlığı gizlensin mi / gizlenmesin mi...
              );

mesaj_.pas ve formu ekte

Yok bunlar @uparlayan Beyin kodları 

İhtiyarlık işte  idare edin    @uparlayan beyinde ellerine sağlık onunda bilgi ve kodlarından çok faydalandım.  (Tüm Delphican yazarlarının ellerine sağlık Allah c.c cümlesinden razı olsun.)