[TotKtoNado]

Всем привет. Как нужно вставить код в уже размещенный компонент с помощью кода?

[Страдалецъ]

Если я правильно понял вопрос, то вам нужен хелпер. Это специальный класс, который позволяет интегрировать пользвательские свойства/методы в уже существующий клас. Выглядит это примерно так

[TotKtoNado]

а что за тело программы?

[Страдалецъ]

У вас есть какой-то свой проект. И на одной из форм лежит компонент функционал которого вы хотите улучшить своим кодом. У формы есть модуль, вот в этом модуле и надо размещать код.

[TotKtoNado]

Сообщение от Страдалецъ

У вас есть какой-то свой проект. И на одной из форм лежит компонент функционал которого вы хотите улучшить своим кодом. У формы есть модуль, вот в этом модуле и надо размещать код.

А что за модуль
Ия не собираюсь улучшать компонент. Я хочу при нажатии на буттон размещались компоненты, но кнопки переимновать и открыть не работают тк в них не размещен код. Я хочу как то разместить в нем код.

[v1s2222]

Ты имеешь в виду создание компонентов в run time.
На хороший код не рассчитывай, 12 часов дня, 1 число, но все же.

Код:

procedure TForm1.Click(Sender: TObject);
begin
  ShowMessage('Вы нажали на кнопку.');
end;

...
var
  Btn: TButton;
begin
  Btn := TButton.Create(Form1);
  With Btn1 do begin
    parent:=self;
    caption:='button';
    OnClick := Click;
  end;

[TotKtoNado]

Сообщение от v1s2222

Ты имеешь в виду создание компонентов в run time.
На хороший код не рассчитывай, 12 часов дня, 1 число, но все же.

Код:

procedure TForm1.Click(Sender: TObject);
begin
  ShowMessage('Вы нажали на кнопку.');
end;

...
var
  Btn: TButton;
begin
  Btn := TButton.Create(Form1);
  With Btn1 do begin
    parent:=self;
    caption:='button';
    OnClick := Click;
  end;

а где все это писать надо?

[v1s2222]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure Click(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Click(Sender: TObject);
begin
  ShowMessage('Вы нажали на кнопку.');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Btn: TButton;
begin
  Btn := TButton.Create(Form1);
  With Btn do begin
    parent:=Form1;
    caption:='button';
    OnClick := form1.Click;
  end;
end;

end.

ЗЫ просто поищи в гугле информацию о создании компонент в ран тайме...

[TotKtoNado]

Сообщение от v1s2222

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure Click(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Click(Sender: TObject);
begin
  ShowMessage('Вы нажали на кнопку.');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Btn: TButton;
begin
  Btn := TButton.Create(Form1);
  With Btn do begin
    parent:=Form1;
    caption:='button';
    OnClick := form1.Click;
  end;
end;

end.

ЗЫ просто поищи в гугле информацию о создании компонент в ран тайме...

но мне не создавать компоненты надо а размещать с уже вставленным кодом

[v1s2222]

Ты меня не понял.

Код:

...
 btn.ONCLICK := Click_; 

А твой код размещай в процедуре CLICK_!

[TotKtoNado]

Сообщение от v1s2222

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure Click(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Click(Sender: TObject);
begin
  ShowMessage('Вы нажали на кнопку.');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Btn: TButton;
begin
  Btn := TButton.Create(Form1);
  With Btn do begin
    parent:=Form1;
    caption:='button';
    OnClick := form1.Click;
  end;
end;

end.

ЗЫ просто поищи в гугле информацию о создании компонент в ран тайме...

она у меня ругаеться
и куда вставлять
...
btn.ONCLICK := Click_; ?
что то вобще не думалка не работает

[v1s2222]

Код:

procedure TForm1.Click_(Sender: TObject);
begin
ТВОЙ код СЮДА вставляй
  ShowMessage('Вы нажали на кнопку.');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Btn: TButton;
begin
  Btn := TButton.Create(Form1);
  With Btn do begin
    parent:=Form1;
    caption:='button';
    OnClick := Form1.Click_;
  end;
end;

[TotKtoNado]

Сообщение от v1s2222

Код:

procedure TForm1.Click_(Sender: TObject);
begin
ТВОЙ код СЮДА вставляй
  ShowMessage('Вы нажали на кнопку.');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Btn: TButton;
begin
  Btn := TButton.Create(Form1);
  With Btn do begin
    parent:=Form1;
    caption:='button';
    OnClick := Form1.Click_;
  end;
end;

но у меня варка ругаеться
[Error] Unit1.pas(28): Undeclared identifier: 'TButton'

[Babuca]

podkluci v Uses StdCtrls

[TotKtoNado]

Сообщение от v1s2222

Код:

procedure TForm1.Click_(Sender: TObject);
begin
ТВОЙ код СЮДА вставляй
  ShowMessage('Вы нажали на кнопку.');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Btn: TButton;
begin
  Btn := TButton.Create(Form1);
  With Btn do begin
    parent:=Form1;
    caption:='button';
    OnClick := Form1.Click_;
  end;
end;

а что она ругаеться на OnClick := Form2.Click_;?
А я хочу их разместить не одну кнопку а несколько ?
Как мне это сделать?