freepascal.ru

Добрый день. Подскажите, как отобразить MessageDlg, ShowMessage поверх других открытых приложений.

Ну, как вариант

Код: Выделить всё

...
Uses
  ..., windows;
...
Procedure TForm1.Button1Click(Sender: TObject);
Var
  Canva: TCanvas;
Begin
  Canva := TCanvas.Create;
  Canva.Handle := GetDC(0);
  Canva.Pen.Color := clBlack;
  Canva.Brush.Color := clBtnFace;
  Canva.Rectangle(0,0, 800, 300);
  Canva.Brush.Color := clRed;
  Canva.Pen.Width := 25;
  Canva.Font.Size := 50;
  Canva.Rectangle(0,0, 800, 250);
  Canva.Ellipse(50, 50, 200, 200);
  Canva.Line(75, 75, 175, 175);
  Canva.Line(75, 175, 175, 75);
  Canva.TextOut(250, 75, #208#146#209#129#209#145#44#32#208#191#208#184#208#183#208#180#208#181#209#134#33);
end;
...