Dialogers udseende

Du fjerner det almindelige udsseende hvor der er TitleBar og knapper ved at sættes Formens BorderStyle til bsNone og så laver du nogle små billeder til minimer/maximer som kalder Formens Minimize og Maximize metoder i stedet for.

- Claes

Hvorledes foregår det så med dragging af formen?

// Rocco

Jeg vil tro at nedenstående vil kunne hjælpe dig igang:

implementation
var
  Drag: Boolean;
  DragX, DragY: Integer;

....

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Drag := True;
  DragX := X;
  DragY := Y;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Drag:= False;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Drag then
  begin
    Left :=
    Top :=
  end;
end;

- Claes

man behøver ikke en mega codning for drag her er en optimering....

//form mousedown
ReleaseCapture;
    Perform( WM_SysCommand, sc_DragMove , 0 )  //trækker formen

//og så lige det sidste
//ovenover implementation


const
    sc_DragMove        = $F012;

Cool! ;)