814 - Alinhar Panel Ao Centro do Formulário

procedure AlinharPanel(AForm: TForm; APanel: TPanel; ACentro: Boolean);
begin
if ACentro then
begin
APanel.Left := (AForm.ClientWidth div 2) - (APanel.Width div 2);
APanel.Top := (AForm.ClientHeight div 2) - (APanel.Height div 2);
end
else
begin
APanel.Left := (AForm.ClientWidth + 100);
APanel.Top := (AForm.ClientHeight + 100);
end;
APanel.Update;
AForm.Update;
end;



--------------------------------------------------------------------------------

Enviada por: Adriano Santos


Um colaborador da DTDelphi 2.7
Colabore você com a próxima edição!