Thema: Delphi Topmost für Form2

Einzelnen Beitrag anzeigen

Benutzerbild von bitsetter
bitsetter

Registriert seit: 17. Jan 2007
1.169 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: Topmost für Form2

  Alt 16. Feb 2007, 20:56
zu 1. folgendes habe ich getestet, jedenfalls bei mir ging es.
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);
end;
zu 2.:
ein Fenster ohne Hintergrund erzeugen
Ich weis nicht ob es eine gute Idee ist, aber folgendes funktioniert auch:
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
begin
  self.Top:= self.Top- self.Height- 30;
end;
Du kannst die Form ja auch erst später erstellen:
Delphi-Quellcode:
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas{Form1},
  Unit3 in 'Unit2.pas{Form2};

{$R *.res}

begin
  Application.Initialize;

  //Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);

  Application.Run;
end.
zu 3. also bei mir funktionierte es:
Delphi-Quellcode:
procedure TForm2.FormShow(Sender: TObject);
begin
  SetWindowPos(Form2.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);
end;
Gruß bitsetter
"Viele Wege führen nach Rom"
Wolfgang Mocker (geb. 1954), dt. Satiriker und Aphoristiker
  Mit Zitat antworten Zitat