Rund Form

For at gøre så man kan se igennem en form skal du gøre sådan her:

//Put en button på din form, og giv den denne onclick:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.TransparentColor := true;
Form1.TransparentColorValue :=clOlive;//Bestemmer hvilken color som skal ses som transparent
Panel1.Color :=clOlive;//Giver panel den farve, så ved den at den skal være transparent.
end;
//Put et panel på din form.
//Go Go..

Alt dette kan du også ændre i object inspectoren

øh der er ikk noget der hedder TransperantColor og TransperantColorValue

Sådan her kan du give formen lidt runde kanter (ser godt ud):

Procedure DrawRoundRectRegion(wnd: HWND; wrect: TRect);
Var
  Rgn: HRGN; 
Begin
  rgn := CreateRoundRectRgn(Wrect.Left, Wrect.Top, Wrect.Right, Wrect.Bottom,(30), (30));
  SetWindowRgn(Wnd, Rgn, TRUE);
End;

procedure TForm1.FormCreate(Sender: TObject);
begin
DrawRoundRectRegion(Handle, ClientRect);
end;

under formen ik???
Hvilken version har du af delphi??

hvis det nu er en tekst jeg har skrevet og man skal kunne klikke på det der er bag ved formen der hvor teksten ikk er??

5

Ja så man kan se igennem formen ikke?

derfor, jeg har version 6

jeg har indtil videre brugt:
  Brush.Style := bsClear;
  Timer1.Enabled := True;

men jeg vil kunne trykke på det der er bagved

formen skal helt FORSVINDE der hvor teksten ikke er, IKKE VÆRE GENNEMSIGTIG, så kan jeg jo ikke klikke på hvis der nu er en teksteditor bagved

jeg mener bare:
Brush.Style := bsClear;

jaja jeg forstår, det kode jeg gav dig som åbentbart kun virker i d6 gjorde nettop sådan!
Der hvor panel var, ville der komme et hul hvor du kunne click, og ramme noget som kunne være omme bagved

jeg havde engang et component der kunne gøre dettte i d5.
Jeg vil se om jeg kan komme på havd den hedder (det var freeware with source)

Ellers gå til http://www.lawrenz.com/coolform og download deres coolform.

Et eksempel jeg engang lavede:

procedure TMain.FormCreate(Sender: TObject);
var
  TempX, TempY : integer;
  R1, R2, R3, R4, R5, R6 : HRgn;
  R_out : HRgn;
begin

  // Create slutregion
  R_out:= CreateRectRgn(0,0,Main.Width,Main.Height);

  TempX := Main.Width DIV 2;    // Finder midtpunktet i bredden af formen
  TempY := Main.Height DIV 2;  // Finder midtpunktet i højden af formen

  // Create ellipse regioner (simpel matematik)
  R1:= CreateEllipticRgn(0, 0, TempX, TempY);                    // Lav øverste venstre ellipse
  R2:= CreateEllipticRgn(TempX, 0, Main.Width, TempY);          // Lav øverste højre ellipse
  R3:= CreateEllipticRgn(0, TempY, TempX, Main.Height);          // Lav nederste venstre ellipse
  R4:= CreateEllipticRgn(TempX, TempY, Main.Width, Main.Height); // Lav nederste højre ellipse
  R5:= CreateRectRgn(Main.Width - 23, 5, Main.Width - 6, 20); // Lav øverste højre hjørne kasse
  R6:= CreateEllipticRgn(TempX DIV 2, TempY DIV 2, (TempX DIV 2) + TempX, (TempY DIV 2) + TempY); // Lav miderste ellipse

  // Kombiner regioner. Den første skal være en RGN_AND ellers se hjælpen for CombineRgn
  CombineRgn(R_out, R_out, R1, RGN_AND);
  CombineRgn(R_out, R_out, R2, RGN_OR);
  CombineRgn(R_out, R_out, R3, RGN_OR);
  CombineRgn(R_out, R_out, R4, RGN_OR);
  CombineRgn(R_out, R_out, R5, RGN_OR);
  CombineRgn(R_out, R_out, R6, RGN_DIFF);  // Træk miderste ellipse fra regionen

  // Ændre form til R_out region
  SetWindowRgn(Handle,R_out, True);

end;

Det trick som dkn kan nemy impl. i Delphi 5 og tifligere .. Problemert er blot at for at det virker skal din APP køre på Windows 2000

Jens B

Er der en der kan omformulere det script der står ovenover så det er alt andet end en label der bliver gennemsigtigt??


Og jeg bruger 98 så der andet duer ikk

cautoo  -> ehh hvad???

Den der CoomForm kan jeg ikke bruge i denne situation, men er der ikk en der, ud fra det ovenstående script, kan lave et script så det virker med den tekst der står i min label???

Prøv evt. også at kigge på Gabes Odd Form Assistant. Det er et sødt lille program, hvor du på baggrund af et bitmap kan generere en Delphi unit, der kan danne en form med samme udseende som dit billede!!

Se på adressen:

http://www.informatics.no/progvareOF.htm

/Torben.

´Det skal stadig være en TLABEL ikke alt muligt andet men noget så enkelt som en TLABEL

Så skulle du nok have formuleret spørgsmålet anderledes. En Form i Delphi er og bliver en Form - det som alle svarene har drejet sig om...

/Torben.

Forstod du ikk det sidste indlæg jeg skrev??

CoolForm hedder komponenten, hvor du kan designe din form med en mask.... Hent den på www.torry.net!

lukker