Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.03;
Скачать: CL | DM;

Вниз

Помогите с событием разобраться.   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
6-5098
kalishenko stas
2002-11-27 18:53
2003.02.03
Какой мой IP в Интернете?


3-4741
Senator
2003-01-15 15:50
2003.02.03
DBGrid


1-4908
Sedov Vitalik
2003-01-25 08:03
2003.02.03
Внешний вид ScrollBar


6-5111
brestmarket
2002-12-09 00:49
2003.02.03
Как найти и выделить необходимый текст в WebBrowser?


14-5178
-----------------
2003-01-18 13:05
2003.02.03
Как пихнуть файл типа Tbitmap в record?