Código Delphi [-] procedure TForm1.FormCreate(Sender: TObject); begin with Label1 do begin Left:= (Self.ClientWidth - Width ) shr 1; // centrado horizontal Top:= (Self.ClientHeight - Height) shr 1; // centrado vertical end; end;
procedure TForm1.FormCreate(Sender: TObject); begin with Label1 do begin Left:= (Self.ClientWidth - Width ) shr 1; // centrado horizontal Top:= (Self.ClientHeight - Height) shr 1; // centrado vertical end; end;