İşlem Yapılırken "Lütfen Bekleyiniz" Yazısı

[mrmarman]

Burada bir katkı yapayım.

OnCreate durumunda Application.MainForm henüz assign edilmemiş olduğundan bunu 0 kabul ederseniz çalışacaktır.

Aşağıdaki revizyonu yapmak isteyebilirsiniz.

function CreateStatusWindow(const Text: string): TStatusWindowHandle;
var
  FormWidth,
  FormHeight  : integer;
  LHandle     : HWND;
begin
  if Assigned(Application.MainForm)
    then
      LHandle     := Application.MainForm.Handle
    else
      LHandle     := 0;

  FormWidth   :=  600;  //  Genişliğini   istediğiniz gibi ayarlayın
  FormHeight  :=  180;  //  Yüksekliğini  istediğiniz gibi ayarlayın
  result      :=  CreateWindow('STATIC',
                    PChar(Text),
                    WS_OVERLAPPED or WS_POPUPWINDOW or
                      WS_THICKFRAME or SS_CENTER or SS_CENTERIMAGE,
                    (Screen.Width  - FormWidth)  div 2,
                    (Screen.Height - FormHeight) div 2,
                    FormWidth,
                    FormHeight,
                    LHandle, //Application.Mainform.Handle,
                    0,
                    HInstance,
                    nil );
  ShowWindow(result, SW_SHOWNORMAL);
  UpdateWindow(result);
end;

[Hayati]

@mrmarman abi sahalara dönmüşsün, jubile yaptiğini dusunup üzülmustüm.