Форум: "Основная";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];
ВнизПомогите с событием разобраться. Найти похожие ветки
← →
Provodnick (2003-01-27 05:32) [0]Разбирался тут с созданием компонентов в Run-Time. Возник вопрос.
Имеется прога:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
??? procedure ONL2Cl (Sender: TObject);
var
Form1: TForm1;
FormTemp:TForm;
Label2:TLabel;
ColorDialog:TColorDialog;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
FormTemp:=TForm.Create(Form1);
FormTemp.Caption:="New Form!!!";
FormTemp.ClientHeight:=200;
FormTemp.ClientWidth:=200;
FormTemp.Position:=poMainFormCenter;
FormTemp.Icon.LoadFromFile("C:\Мои документы\mem1.ico");
Label2:=TLabel.Create(FormTemp);
With Label2 do begin
Parent:=FormTemp;
Height:=2;
Width:=2;
Caption:="WOW";
?? OnClick:=onl2cl
end;
FormTemp.Show;
ColorDialog:=TColorDialog.Create(FormTemp);
end;
Procedure onl2cl (Sender: TObject);
begin
ColorDialog.Execute;
Label2.Color:=Colordialog.Color
end;
end.
Как правильно задать обработчик для события OnClick Label2?
И ещё - возможно ли создать непрямоугольную кнопку, например овальную?
← →
Насчет (2003-01-27 05:53) [1]первого вопроса - перенеси строку
??? procedure ONL2Cl (Sender: TObject);
хотя бы на одну строку выше, тогда она у тебя станет методом класса, что собственно от нее и требуется.
← →
Юрий Зотов (2003-01-27 06:15) [2]А насчет непрямоугольной кнопки - см. в справке API тему region functions. Скажем, овальная создается вызовом CreateEllipticRgn(Indirect), CombineRgn и SetWindowRgn. Но обычно после этого требуется "ручная" дорисовка.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c