Програмно изменить OnClick

[fineleave]

Добрый день. Пишу программу и необходимо изменить события, которые вызываются при OnClick.
Возможно то программно изменить это?

например.
Button1.OnClick выполняет label1.visible: = true;
а мне необходимо заменить текст в OnClick на label1.visible: = false;

возможно выполнять такие замены программно? напрмер:

if (умова = 1) then begin
button1.OnClick:=( ' label1.visible: = true' );
end else
button1.OnClick:=( ' label1.visible: = false' );

[OlegVE]

procedure TForm1.Button1Click(Sender: TObject);
begin
 if Label1.Visible
 then
  Label1.Visible := False
 else
  Label1.Visible := True;
end;

Может Вам лучше в раздел "Новички в программировании"?

[fineleave]

я это знаю Но меня интересует не то.
мне необходимо изменить события, выполняемые при OnClick.
изменить сам текст события.

пример 2:

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Visible := True;
end;

заменить на

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Visible := False;
end;

изменить сам текст события программно.

[GunSmoker]

Можно.

Но не так, как вы хотите сделать.

Я бы начал с:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Visible := (умова = 1);
end;

Если не устраивает (щелчок и проверка в одном месте, а не разнесены, как у вас), то:

Button1.Tag := Ord(умова = 1);

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Visible := (Button1.Tag <> 0);
end;

Если и это не нравится, то:

if (умова = 1) then
  button1.OnClick := Button1ClickShow
else
  button1.OnClick := Button1ClickHide;

...

procedure TForm1.Button1ClickShow(Sender: TObject);
begin
  Label1.Visible := True;
end;

procedure TForm1.Button1ClickHide(Sender: TObject);
begin
  Label1.Visible := False;
end;

[fineleave]

Понятно. Благодарю за ответ.
Думал что можно изменить типу так:
button1.onClick: = ('что нужно выполнить');

[veniside]

> Думал что можно

если очень хочется, то можно:

    @Button1.OnClick := pPointer(Cardinal(pPointer(  procedure (sender: tObject) begin (TButton(sender).Owner as TForm).Caption := 'From ButtonClick' end )^  ) + $0C)^;

[phomm]

"+много , хххххдддд, автар жги есчо"

мне понравился способ ))

ТС, советую Вам отойти от понимания программирования, как некоей системы, где есть текст, события, готовые объектные сущности. Среда за Вас делает всю тяжелую работу, производит сокрытие всей этой работы, а Вам предоставляет наполнение событий нужным кодом, и когда Вы это поймёте, то смысл понятия "изменить текст события программно" станет для Вас "присваиванием полю (в некоем объекте) процедурного типа нужной вам переменной процедурного типа, подпрограмма записанная в которой у Вас уже объявлена и наполнена по всем правилам" , что и указано этим кодом

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

if (умова = 1) then
  button1.OnClick := Button1ClickShow
else
  button1.OnClick := Button1ClickHide;

...

procedure TForm1.Button1ClickShow(Sender: TObject);
begin
  Label1.Visible := True;
end;

procedure TForm1.Button1ClickHide(Sender: TObject);
begin
  Label1.Visible := False;
end;

[mobilitialex]

Label1.Visible:= not Label1.Visible;