Einzelnen Beitrag anzeigen

NicoDE
(Gast)

n/a Beiträge
 
#2

Re: Formular immer im Hintergrund

  Alt 21. Jan 2004, 19:03
Meinst Du so einen Effekt?

Delphi-Quellcode:
unit Unit2;

interface

uses
  Windows, Messages, Classes, Controls, Forms, Dialogs;

type
  TForm2 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure CreateParams(var Params: TCreateParams); override;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  if Assigned(Application.MainForm) then
  begin
    Params.Style := Params.Style or WS_CHILD;
    Params.WndParent := Application.MainForm.Handle;
  end;
end;

end.
Unit1 ist in diesem Falle die MainForm...
  Mit Zitat antworten Zitat