Форум: "Основная";
Текущий архив: 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.46 MB
Время: 0.046 c