Rechter Rand der Form abgeschnitten

[-=cats=-]

Hi,

ich habe mal wieder ein kleines Problem ...

Bei meiner Form wird der rechte Rand einfach
abgeschnitten.
Ich habe sie auf Borderstyle = bsSizeable
gesetzt.
Auf ihr sitzt noch ein Panel mit Align = alRight.

Wenn man jetzt die Form vergrößern / verkleinern möchte,
dann kommen am Rand ja immer so kleine schwarze Pfeile.
Die kommen auch an allen seiten, nur an der rechten Seite nicht.
Diese Art "3D" Rand ist auf der rechten Seite auch nicht
zu sehen.

Ich habe mal einen ScreenShot gemacht, um es zu verdeutlichen.
Wo der schwarze Balken ist, wird der Rand weggeschnitten.

Vielleicht hat ja jemand von Euch eine Idee, woran das liegen
kann

-=cats=-

Um die Titelleiste auszublenden, habe ich folgenden Code
eingefügt:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) AND NOT WS_CAPTION);
   ClientHeight := Screen.Height;
   ClientWidth := Screen.Width;
   Form1.Top := 0;
   Form1.Left := 0;
   Refresh;
end;

Ich habe den Fehler gefunden. Meine
Form ist einfach zu groß für den Monitor.
... Zumindest sieht es danach aus ...
Habe jetzt von Screen.Heigt und Screen.Width
jeweils 5 abgezogen. Jetzt passt es.

[eddy]

Hallo,

prüf' mal Form.Width

Diesen Fehler hatte ich in einer ählichen Art auch mal. Form.Width war bei mir damals größer als Screen.width und von meinem rechtsbündigen Panel fehlte ein Stück.

mfg
eddy