Form designer

er det et panel din label er på og have den trukket over på formen?

det var bare forklarende for hvordan jeg har lavet min designer.
Og der skal ikke trækkes noget....Hvor står det?

nå ja..hive=gøre størrer/mindre (her!)

stone>>flytte = flytte label rundt på samme moder (her et panel).
Yderlig forklaring:
Jeg kunne jo selv tegne de 8 grå firkanter og så lave noget kode der håndterede onClick på dem og på onClick på "komponenten" (en label i mit eksempel).
Men komponenterne har jo allerede nogle metoder/props til netop dét, kan man ikke benytte sig af dem?

Det er nok mest mouseDown/up/move der skal bruges på de små grå firkanter :)

//her er et eksempel  på at hive en label rundt på formen
//eksemplet kan bruges på alle componenter

//{$R *.DFM}
const
Traekker:Boolean=False;
var
Sidste_x, Sidste_y:Integer;

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if (SSleft in shift) then begin
Traekker:= True;
Sidste_x:=x;
Sidste_y:=y;
end;

end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
mx,my:Integer;
begin
if (traekker)and( ssleft in shift) then
begin
mx:=Label1.Left;
Label1.Left:=Label1.Left-(sidste_x-x);
mx:=Label1.Left-mx;
my:=Label1.Top;
Label1.top:=Label1.top-(Sidste_y-y);
my:=Label1.Top-my;
sidste_y:=Y-my;
sidste_x:=x-mx;
end
else
traekker:= false;
end;

Ja ok.
Men det skal være sådan at label'en "vælges" og der tegnes træk-punkter, som bruges til at gøre labelen størrer og mindre i de forskellige retninger. i breden og højeden, med anker modsat træk-punktet og osse dem som resizer både breden og højden.
Når man trykker (mouseDown) på midten af en allerede valgt komponent så kan den flyttes, lige som stone foreslår, og punkterne skal osse med.
Det er jo altsammen som ide'et i delphi 6.0, så mon ikke man kan få tegnet en komponent med punkter og de andre ting.
Det er nok det mit spørgsmål egentlig kan koges ned til.
Ellers skal man vist i gang med en længere kodning.

stone>>er den kode testet, hvad med mouseUp hvor trækker resettes, og ikke i mouse move.

her er et eksempel fra mine gemmer af  Finn Ekberg Christiansen / www.danish-shareware.dk
he he websted til låns:::
www.victor-cykler.dk/resize.zip

her er forskellige eksempler på componenter som kan resized....

Tak, det virker osse, men det var måske ikke helt det jeg ville have at vide.
MEN jeg er blevet overbevist om at det er den vej frem = en masse kode :)
Så du er berettiget til points.

håber du får løst det med dine firkanter til at trække i.
//stone

Tak, ja det har jeg en plan om.
Er der ingen andre der har et svar......