Meget custom form..

.. æh.. og : noget af formen skal være transparent, f.eks. formen er oval..
Lav venligst kommentarer til koden.

That's all..

/Mnc

Prøv at starte med det her...

procedure TFormParabel.FormCreate(Sender: TObject);
var
  State: LongInt;
begin
  State := GetWindowLong(Handle, gwl_Style);
  if (State and ws_Caption) = ws_Caption then
  begin
    case BorderStyle of
      bsSingle, bsSizeable:
        SetWindowLong(Handle, gwl_Style, State and (not ws_Caption) or ws_border);
      bsDialog:
        SetWindowLong(Handle, gwl_Style, State and (not ws_Caption) or ds_modalframe or ws_dlgframe);
    end;

    height := height - getSystemMetrics(sm_cyCaption);
    refresh;
  end;
end;

Ok, det var da en Borderless form, så langt var jeg også kommet. Jeg var nu mere ude efter hele baljen, med Drag og Transparency.. Men takker alligevel.

I Delphi 6 kan du gøre din form gennemsigtig/halvgennemsigtig...

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.AlphaBlend := True;
  Self.AplhaBlendValue := 128;
end;

Husk på at det kun virker i win2k og frem...

Her har du opskriften på en femkantet form:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons;

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    FRegion: THandle;
    procedure FreeRegion;
public
  procedure CreateParams(var Params: TCreateParams); override;
end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := WS_POPUP or WS_BORDER and not WS_MINIMIZE;
end;

procedure TForm1.FreeRegion;
begin
  if FRegion <> 0 then
  begin
    SetWindowRgn(Handle, 0, True);
    DeleteObject(FRegion);
    FRegion := 0;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
type
  TPointsArray = array[0..4] of TPoint;

var
  pa: TPointsArray;
begin
  FreeRegion;

  with ClientRect do
  begin
    pa[0] := Point(Left + 50, Bottom);
    pa[1] := Point(Left + 1, Top + Bottom div 2);
    pa[2] := Point(Left + Right div 2, Top);
    pa[3] := Point(Right, Top + Bottom div 2);
    pa[4] := Point(Right - 50, Bottom);

    FRegion := CreatePolygonRgn(pa, 5, ALTERNATE);
  end;

  if FRegion <> 0 then
    SetWindowRgn(Handle, FRegion, True);
end;

end.

Ok, jeg tror - nej jeg ved - at jeg har fundet det.. Jeg har lavet en Shape og gjort følgende :

procedure TFormCustom.Shape1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(FormCustom.Handle,wm_SysCommand,$f012,0);
end;

Så er der bare transparency tilbage, og den er ikke svær..
Lukker spørgsmålet, tak for hjælpen hermandsen.

F*ck, ok, min linie kører langsom.. Fik skrevet den sidste besked inden jeg fik set din sidste.. Lukker ikke alligevel.. Giv mig lige et øjeblik til at læse den igennem..

Hehe.... Yes yes... :)

Hmmm... Win2k og frem.. Hvad gør en Win98 bruger så?

Kan ikke bruge det... :)

Den gør bare formen gennemsigtig, altså ingen huller i formen, og så vidt jeg forstod, så var det hvad du ville have... Det kan du også sagtens, men i Win98 kan du ikke lave formen halvgennemsigtig... Så skal du i hvert fald i gang med noget RET hardcore kode, og det tvivler jeg meget på du har lyst til... Du skal overtage alt styring med tegning af din form...

En af mine kammerater lavede en gang hans form "halvgennemsigtig" i win98, men det var ved at fjerne hver anden pixel... Problemet med det var bare at hvis man trykkede på en af de fjernede pixels, så blev det opfattet som et klik på skrivebordet... :(

Ok, giv mig et øjeblik mere.. Hvis jeg får stykket dét her sammen, går pointsene ubeskåret til dig..

Mens du venter, ved jeg at der er et ret interessant spørgsmål om Listboxe hér på Experten, som ikke er blevet lukket endnu... ;-)

Hehe... Jeg er i gang... ;)

Well, der er ikke så meget at diskutere. Jeg har hvad jeg skal bruge. Tak for hjælpen endnu en gang, pointsene kommer hér! Enjoy..
;-)

Hehe... Selv tak! :)

Jeg har også kastet et svar til dit problem med din ListBox, men det har du sikkert opdaget! ;)