Enabled

[Stilet]

а можно ли создать обработчик событий для переменной?

Это называется свойством. Читай в книге от Тексейры и Пачеко про Property.

[NewLamer&Programer]

а вот так не прокатит?

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
  Procedure FEnabledChange(Enabled: Boolean);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Enabled: Boolean;

implementation

{$R *.dfm}

Procedure Process(Enabled: Boolean);
begin
if Enabled
then Form1.Label1.Caption:= 'Enabled'
else Form1.Label1.Caption:= 'Desabled';
end;

Procedure TForm1.FEnabledChange(Enabled: Boolean);
begin
Process(Enabled);
end;

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

procedure TForm1.Button2Click(Sender: TObject);
begin
Enabled:= False;
end;

end.

только все равно зависает все нафиг при присвоении Enabled:= False вообще не понимаю тут то почему???

п.с. или нужно как то связываться с TNotifiEvent обязательно?

[Stilet]

Всетки про свойства прочитай.

[phomm]

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    FMyEnabled: boolean;
    Procedure SetMyEnabled(Value: Boolean);
  public
    property MyEnabled: Boolean read FMyEnabled write SetMyEnabled;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Procedure TForm1.SetMyEnabled(Value: Boolean);
begin
FMyEnabled := Value;
if Value
then Label1.Caption:= 'Enabled'
else Label1.Caption:= 'Disabled';
end;

Полагаю, это спасёт отца русской демократии ?
Вы же уже установили, что не надо называть вещи уже используемыми именами, дак зачем наступать на эти же грабли ?

Я бы выгнал за книги, чтобы прочёл от корки и до заката.

[NewLamer&Programer]

phomm,
"Полагаю, это спасёт отца русской демократии ?" - брееед... (код)
"Вы же уже установили, что не надо называть вещи уже используемыми именами, дак зачем наступать на эти же грабли ?" - я просто уже малость сам запутался...
"Я бы выгнал за книги, чтобы прочёл от корки и до заката." - думаешь мне есть когда их читать? =) сессия чтоб ее... и вообще по программированию у нас С++, а делфи это так просто увлечение со школы осталось (после паскаля увлекся) Только теперь я С++ нихера не понимаю, а в делфи ну так чуток шарю (да я нуб с высокой самооценкой !), но учиться чему то новому всегда рад

п.с. у меня щас моСК лопнет от всей этой Х***** в общем посмотрю завтра...

п.с. 2 впрочем скачал этих Тейксера и Пачека... вроде ниче понятно спс

[Stilet]

думаешь мне есть когда их читать?

Думаешь у тебя на настоящей работе такое время появится? Думаешь оно у тебя будет когда семьей обзаведешься?

[Serge_Bliznykov]

Сообщение от NewLamer&Programer

"Полагаю, это спасёт отца русской демократии ?" - брееед... (код)

это я чего-то не понял... Какой бред?!
Или это Вы вместо "спасибо" за толковый пример?!!

[NewLamer&Programer]

Stilet, я лишь хотел сказать что код мне требовался сейчас, а книги можно почитать и после сессии

Serge_Bliznykov, в нете навалом примеров, однако данный пример совершенно не вписывается в то что я хотел увидеть (даже обработчик не OnChange, а какой то Set) Впрочем все равно спс, какой никакой образец...

[Serge_Bliznykov]

Вам показали пример, который делает именно то, что Вам нужно и так, как это заложено разработчиками языка ("страшное" слово инкапсуляция слышали? )!
Что именно в этом примере Вас не устраивает? (что не делается? Или что делается, но не так, как Вам нужно?)

(даже обработчик не OnChange, а какой то Set)

смешно... ну назовите его так, как Вам хочется.. см.ниже..

    procedure Button2Click(Sender: TObject);
  private
    FMyEnabled: boolean;
    Procedure OnMyEnabledChange(Value: Boolean);
  public
    property MyEnabled: Boolean read FMyEnabled write OnMyEnabledChange;
  end;
...
Procedure TForm1.OnMyEnabledChange(Value: Boolean);
begin
FMyEnabled := Value;
.....

что код мне требовался сейчас, а книги можно почитать и после сессии

поймите, что Вам предлагают корректный код. Если Вы его не можете понять, от этого предложенный код не становится менее корректным. Ваше право не использовать его и написать так, как Вы считаете нужным/правильным.
Но вообще-то, Вы сейчас напоминаете студента, который пытается решить квадратное уравнение методом "тыка", так как формулу для вычисления дискриминанта и корней он не знает, а читать книжки ему некогда... Аналогия, надеюсь, прозрачна?

Ну и желаю удачи, она Вам явно понадобится!

[NewLamer&Programer]

"смешно... ну назовите его так, как Вам хочется.. см.ниже.."
да кто же его знает вдруг там какой то синтаксис заложен на эти Set, Change...

"поймите, что Вам предлагают корректный код." ок ок ок...

"Аналогия, надеюсь, прозрачна?" - дискриминанты на помойку, метод Крамера рулит !!!