• From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Topic: fontDialog

как убрать из диалога  выбор ВИДОИЗМЕНЕНИЯ?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: fontDialog

Что такое видоизменения? стиль шрифта?

Dmitry.

3 Reply by sibprogsistem (edited by sibprogsistem 2020-03-05 10:49:34)

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: fontDialog

DriveSoft wrote:

Что такое видоизменения? стиль шрифта?

http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=6312&download=0

Post's attachments

Attachment icon Безымянный.png 13.43 kb, 118 downloads since 2020-03-05 

4 Reply by vovka3003 (edited by vovka3003 2020-03-05 11:46:42)

  • From: Белгород
  • Registered: 2018-12-03
  • Posts: 657

Re: fontDialog

Это стандартное окно Windows. Можно перехватить его в цикле c помощью GetForegroundWindow, затем, используя полученный хендл родителя перечислить дочерние компоненты (FindWindowEx), отыскать нужный и послать ему сообщение WM_CLOSE в SendMessage.

Системы безопасности в Белгороде

vovka3003's Website

  • Registered: 2014-02-14
  • Posts: 10,294

Re: fontDialog

Пример

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
  FD: TFontDialog;
begin
  FD := TFontDialog.Create(Form1);
  FD.Options := FD.Options - fdEffects;
  FD.Execute;
  FD.Free;
end;
Dmitry.
  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: fontDialog

целый день в гугле
а оказалось   FD.Options := FD.Options - fdEffects;
 
СПАСИБО!