| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Добавить кнопку в диалог [D7, WinXP]

так себе ©   (2007-01-28 12:43:00) 

Несколько месяцев назад на форуме приводился пример добавления кнопки на ColorDialog рядом с кнопками Ок и Отмена. Не осталось ли у кого этого примера или подскажите как сделать?

---

K0dor   (2007-01-29 05:34:00) [1]

Удалено модератором

---

так себе   (2007-01-28 20:23:00) [2]

После поисков по форумам
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, ExtCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   ColorDialog1: TColorDialog;
   Label1: TLabel;
   procedure ColorDialog1Show(Sender: TObject);
   procedure Button1Click(Sender: TObject);
   procedure ColorDialog1Close(Sender: TObject);
   procedure MyBtnClick(Sender: TObject);//äîáàâèòü
 private
   { Private declarations }

 public
   { Public declarations }
 end;

var
 Form1: TForm1;
 Panel: TPanel;
 Btn: TButton;
 MyBtnClick:TNotifyEvent;

implementation

{$R *.dfm}

procedure TForm1.ColorDialog1Show(Sender: TObject);
begin
  Panel := TPanel.CreateParented(ColorDialog1.Handle);
  Windows.SetParent(Panel.Handle,ColorDialog1.Handle);
  with Panel do
  begin
    Parent := Self;
    Top := 270;
    Left := 148;
    Height := 23;
    Width := 64;
  end;

  Btn := TButton.Create(Self);
  with Btn do
  begin
    Parent := Panel;
    Caption := 'MyBtn';
    Width := 65;
    Height := 23;
    OnClick := MyBtnClick;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ColorDialog1.Execute
end;

procedure TForm1.MyBtnClick;
begin
 ShowMessage('Yes')
end;

procedure TForm1.ColorDialog1Close(Sender: TObject);
begin
 Btn.Free;
 Panel.Free;
end;

end.
Может кому пригодится...

---

antonn   (2007-01-28 18:11:00) [3]

<оффтоп>
в клиенте смотрю, и удивляюсь - begin...end спамит, не похоже на него:)))

---

begin...end   (2007-01-28 18:07:00) [4]

http://msdn2.microsoft.com/en-us/library/ms646951.aspx

---

ha-sharon   (2007-01-28 17:28:00) [5]

Удалено модератором

---

BigMovies   (2007-01-28 15:34:00) [6]

Удалено модератором

---

Наверх