botão alterar do componente fontdialog

Delphi

18/01/2008

aew pessoal blz...
eu preciso fazer o botão alterar do componente fontdialog...
valeu...


Felipe_b350

Felipe_b350

Curtidas 0

Respostas

Dbergkamps10

Dbergkamps10

18/01/2008

Olá,
No componente FontDialog não vi nenhum botão alterar. :roll:
Se o q vc quer é alterar a fonte tente assim;


procedure TForm1l.FormShow(Sender: TObject);
begin
ComboBox1.Items:=Screen.Fonts; // colocando todas as fontes num Combo
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Font.Name:=ComboBox1.Items[(Combobox1.itemindex)]; // alterando a fonte do label.;
end;


Espero ter ajudado.

Att
Dalton


GOSTEI 0
Felipe_b350

Felipe_b350

18/01/2008

valeu..


GOSTEI 0
POSTAR