Código
Personalize suas messages boxes
=======================================
procedure TfrmMain.FormCreate(Sender: TObject);
var AMsgDialog: TForm;
ARadio: TRadioGroup;
begin
AMsgDialog := CreateMessageDialog('Informe Opção', mtConfirmation,
[mbOK, mbCancel]);
ARadio := TRadioGroup.Create(AMsgDialog);
with AMsgDialog do
try
Caption := 'Minha Caixa de Diálogo Personalizada';
Height := 180;
Width := 220;
Position:= poDesktopCenter;
with ARadio do
begin
Parent := AMsgDialog;
Top := 90;
Height:= 60;
Width:= 133;
Left := 45;
Items.Add('Eu sou Lindo');
Items.Add('Eu sou Mais Lindo');
ItemIndex:= 0;
end;
case ShowModal of
ID_OK: begin
//todo: faça alguma coisa aqui
end;
ID_CANCEL: Application.Terminate;
end;
finally
ARadio.Free;
Free;
end;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009