Tak for svaret,
Jeg gjorde noget lignende, med at lave min egen box.
Hvorfor.. For at kunne vise japanske tegn i boxen uden at hele OS skal
skiftes til japansk.
MVH
"David A. D. Konrad" wrote:
>
> "Morten Vahlkvist" <vahlkvist@worldonline.dk> skrev i en meddelelse
> news:3D05F2E8.599CA3A4@worldonline.dk...
> > Er det muligt at ændre font i en messagedlg, og kan denne font være en
> > MBCS font ?
>
> Kopier koden fra Dialogs | CreateMessageDialog, medtag TMessageForm,
> modificer linien
> Canvas.Font := Font; Alternativt kunne du ændre linien Font.Handle :=
> CreateFontIndirect(NonClientMetrics.lfMessageFont) i TMessageForm
>
> Men hvorfor man skulle gøre det, istedet for at lave en lille boks der viser
> en tekst med en alternativ font, eller slet og ret ændre windows
> fontopsætning i skærmopsætning | messageboks, det forstår jeg ikke