Форум: "Основная";
Текущий архив: 2005.10.02;
Скачать: [xml.tar.bz2];
Внизruntime компоненты Найти похожие ветки
← →
SuperAlexey (2005-09-14 12:25) [0]Есть runtime создаваемый компонент, требуется назначить процедуру - обработчик события (например OnClick). Подскажите, пожалуйста, как это реализовать.
← →
Reindeer Moss Eater © (2005-09-14 12:26) [1]ОnClick - это свойство для чтения/записи.
Присвой ему значение и реализуешь то что хочешь.
← →
Ega23 © (2005-09-14 12:35) [2]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button2: TButton;
Button1: TButton;
Button3: TButton;
Button4: TButton;
procedure ButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TForm1 }
procedure TForm1.ButtonClick(Sender: TObject);
begin
ShowMessage("Button "+TButton(Sender).Name+" clicked");
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i:Integer;
begin
for i:=0 to ComponentCount-1 do
if (Components[i] is TButton) then
TButton(Components[i]).OnClick:=ButtonClick;
end;
end.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.10.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.004 c