Cambiare forma al form?... seguite le istruzioni e lo vedrete!!!

Ecco il codice per avere una form a forma di ellisse:

// inizio sorgente
procedure TForm1.Button1Click(Sender: TObject);
var rgn:hrgn;
begin
rgn:= createELLIPTICrgn(1,1,width,height);
setwindowrgn(handle, rgn, true)
end;
// fine sorgente

Se volete ritornare al formato rettangolare allora il codice è questo:

// inizio sorgente
procedure TForm1.Button2Click(Sender: TObject);
var rgn:hrgn;
begin
rgn:= createRECTrgn(1,1,width,height);
setwindowrgn(handle, rgn, true)
end;
// fine sorgente

nell'assegnazione di "rgn", notare che i primi due elementi(1,1) si riferiscono alle coordinate del form da cui si

deve incominciare il ridisegnamento del formato, mentre il terzo e il quarto elemento (width,height), si

riferiscono a dove deve finire.

Se si vuole, ad esempio, formare un form circolare anzichè ellittico, basterà sostituire quest'ultimi con una

variabile uguale es: rgn:=(1,1,600,600).
In questo caso sia l'altezza che la larghezza del form avranno come nuovi valori: 600;

Se si applicano queste modifiche state attenti di non lasciare fuori dal cerchio dei controlli, perchè altrimenti

non potranno essere visti dall'utente!