Форум: "Основная";
Текущий архив: 2007.03.25;
Скачать: [xml.tar.bz2];

Вниз

Добавить кнопку в диалог   Найти похожие ветки 

← →
так себе   (2007-01-28 12:43) [0]

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

---

← →
BigMovies   (2007-01-28 15:34) [1]

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

---

← →
ha-sharon   (2007-01-28 17:28) [2]

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

---

← →
begin...end ©   (2007-01-28 18:07) [3]

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

---

← →
antonn ©   (2007-01-28 18:11) [4]

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

---

← →
так себе   (2007-01-28 20:23) [5]

После поисков по форумам
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.
Может кому пригодится...

---

← →
K0dor   (2007-01-29 05:34) [6]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2007.03.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.039 c