panel oben rechts anzeigen

[Andreas L.]

Hi,
ich habe ein panel welches ich oben rechts im Programm anzeigen möchte. Das panel ist 150 breit und die Form ist wsMaximized. Mein Code:

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
begin
 setconfig; //<-- Nicht von Bedeutung, ist meine Funktion um die Konfiguration zu schreiben...
 panel1.Top:=0;
 panel1.left:=screen.Width-150;
end;

Wenn ich das nun ausführe wird zwar das panel korrekt ausgerichtet aber das Form ist nicht maximiert sondern normal groß und zwar in der linken Ecke... Was nun? Gibts noch ne andere Möglichkeit oder was ist die Ursache für mein Problem??????

Danke...

[dahead]

also bei mir funktioniert das.

bist du sicher, dass du deine Form1 auf wsMaximized gestellt hast?

ich würde das übrigens eher so angehen:

Delphi-Quellcode:

procedure TForm1.FormResize(Sender: TObject);
begin
  Panel1.Top  :=  0;
  Panel1.left := Self.ClientWidth - Panel1.Clientwidth;
end;

also ins OnResize. Statt der 150 gleich die Panel-Breite verwenden und statt Screen.Width die Breite des Formulars.

[Andreas L.]

Wenn ich das ganze ins FormResize tu geht es. Danke ;-)

[dfried]

Zitat:

Zitat von onlinehome

Wenn ich das ganze ins FormResize tu geht es. Danke ;-)

Wieso plazierst du das Panel nicht zur Designzeit schon korrekt und setzt dann entsprechend die Anchors?
Dann kannst du dir das "plazieren" in FormResize sparen!