procedure TForm1.PageControl1Change(Sender: TObject);
var n,m: Integer;
begin
if
PageControl1.ActivePage=TabSheet1 then
begin
Self.Hide;
Self.Width:=582;
Self.Height:=250;
Position:=poScreenCenter;
Self.Show;
end
else
begin
....
end;
Il precedente codice va in errore "Access Violation" quando seleziono il
TabSheet1. Se tolgo la Position:=poScreenCenter; va tutto ok.
Che succede? Giorgio