Form verändern / Transparenz

[MrDevil]

Hallo

Folgendes:

TForm ist 500 x 400 Px
ein kleiner Teil von dieser Sichbarenform und zwar von Oben 0 -> 300 soll sichtbar bleiben und von 300 -> 400 soll transparenz
Allerdings sollen TControls die im Trans bereich liegen weiterhin 100%ig zu sehen bleiben

das ganzr MUSS auch unter WIN9X und NTx Systemen funktionsfähig sein.


Wie gehe ich da nun vor ich habe D5 STD

[pilic]

Dann mache die Form transparent. Angenommen TransparentColor ist clFuchsia, muss die Farbe der Form auch clFuchsia sein. Dann legst du ein Panel von 300 Pixel Höhe an.

[Garfield]

Könnte das von der Delphiversion abhängig sein? Unter Turbo Delphi würde ich das beispielsweise so machen:

Neues Projekt, ein Panel darauf und dann:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Color                 := clFuchsia;
  Form1.TransparentColorValue := clFuchsia;
  Form1.TransparentColor      := True;
  Form1.ClientWidth           := 500;
  Form1.ClientHeight          := 400;

  Panel1.Caption              := '';
  Panel1.Align                := alTop;
  Panel1.Height               := 300;
end;