Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Заменить стандартные диалоги Windows

Delphi , Программа и Интерфейс , Диалоги и Фреймы

Заменить стандартные диалоги Windows

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  Sometimes we need to replace some text or something other in standard Windows 
  Open/Save dialogs. 
  Unfortunately, Delphi's dialogs components don't provide 
  the access to all controls placed on Windows common dialogs. 
  But we can perform this using Windows API. 
  The Example below demonstrates the changing all embedded 
  text controls in Open dialog.}

 { 
  Das Beispiel zeigt, wie man den Text in einem TOpenDialog 
  durch eigenen ersetzen kann. 
}


 uses
   CommDlg;

 {...}

 procedure TForm1.OpenDialog1Show(Sender: TObject);
 {First, we need to determine identifiers of dialog's 
 controls, they are following:}
 const
   LB_FILETYPES_ID = 1089; // "File types:" label 
  LB_FILENAME_ID = 1090;  // "File name:" label 
  LB_DRIVES_ID = 1091;    // "Look in:" label 

  Str1 = 'Four';
   Str2 = 'Five';
   Str3 = 'One';
   Str4 = 'Two';
   Str5 = 'Three';
 var
   hOpenDialog: HWND;
 begin
   hOpenDialog := GetParent(OpenDialog1.Handle);
   SendMessage(hOpenDialog, CDM_SETCONTROLTEXT, idOk, Longint(PChar(Str1)));
   SendMessage(hOpenDialog, CDM_SETCONTROLTEXT, idCancel, Longint(PChar(Str2)));
   SendMessage(hOpenDialog, CDM_SETCONTROLTEXT, LB_FILETYPES_ID, Longint(PChar(Str3)));
   SendMessage(hOpenDialog, CDM_SETCONTROLTEXT, LB_FILENAME_ID, Longint(PChar(Str4)));
   SendMessage(hOpenDialog, CDM_SETCONTROLTEXT, LB_DRIVES_ID, Longint(PChar(Str5)));
 end;

 procedure TForm1.Button5Click(Sender: TObject);
 begin
   if OpenDialog1.Execute then
   begin
     // ... 
  end;
 end;


 // for the Print - Dialog: 

procedure TForm1.PrintDialog1Show(Sender: TObject);
 begin
   SetWindowText(GetDlgItem(PrintDialog1.Handle, idOk), '&&OK2');
   SetWindowText(GetDlgItem(PrintDialog1.Handle, idCancel), '&Cancel2');
   SetWindowText(GetDlgItem(PrintDialog1.Handle, 1025), '&Properties2');
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   if PrintDialog1.Execute then
   begin
     // ... 
  end;
 end;



 // to Enumerate Control - IDs: 

function EnumProc(wnd: HWND; Lines: TStrings): BOOL; stdcall;
 var
   buf, Caption: array [0..255] of char;
 begin
   Result := True;
   GetClassname(wnd, buf, 256);
   GetWindowText(wnd, Caption, 256);
   Lines.Add(Format('ID: %d, class: %s, caption: %s',
     [GetDlgCtrlID(wnd), buf, Caption]));
 end;

 procedure TForm1.PrintDialog1Show(Sender: TObject);
 begin
   memo1.Clear;
   EnumChildWindows(Printdialog1.Handle, @EnumProc, Integer(memo1.Lines));
 end;

Статья Заменить стандартные диалоги Windows раздела Программа и Интерфейс Диалоги и Фреймы может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


:: 2011-09-25 17:29:19 :: re:Заменить стандартные диалоги Windows

пользователь: Дмитрий.

Супер, а главное все понятно и по русски)))


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Диалоги и Фреймы ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
19.09.2021 14:21:48/0.0034401416778564/2