Opfange resize

Hvis du prøver følgende vil a først ændres når museknappen slippes
(det gør den ihvertfald hos mig)

var a: integer;

procedure TForm1.FormResize(Sender: TObject);
begin
  form1.Paint;
  inc(a);
  label2.caption := 'Størrelse ændret '+inttostr(a)+' gange';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  a := 0;
end;

Hej hreiff. Jeg kan godt se meningen i koden, men det er ikke helt brugbart. Såvidt jeg forstår det, så bliver den sidste linie som viser a jo faktisk eksekveret hver gang formens størrelse bliver ændret, det kan bare ikke ses fordi du kalder Paint inden du ændrer det. Det jeg har brug for er at formen kan ændres 30px ad gangen, altså skal jeg ændre formens størrelse ned til nærmenste afrunding af 30, efter at brugeren har sluppet musen. Med din kode så tror jeg ikke det vil virke.

Altså skal min forms størrelse kunne ændres, som når man ændrer på et objekts størrelse i IDE'en.

Eller misforstår jeg noget?

Mvh Mark

I din resize kan du sagtens ændre størrelse:

Form1.height := round(Form1.height/30) * 30;
Form1.width := round(Form1.width/30) * 30;

{ afrunding til hele 30 }

Ja men det virker jo heller ikke, for det bliver jo eksekveret med det samme brugeren har ændret størrelsen 1 pixel, og så bliver den jo smidt tilbage til normal størrelse, osv osv.

Jeg har fundet ud af at jeg kan lytte efter WM_SIZE til at finde ud af hvornår formen er resizet.