> In, say, Project A I have a form FormA with a label and caption.
> When a change is made to some list or variable on FormX I want to
> modify the FormA.label.caption
have a look at this: (misc bits cut for clarity);
formx publishes an event, called when fxNumber is set.
forma has a public callback, same parameters as the event, that sets
the label caption.
at program startup (usually in the main form) there should be:
Formx.OnFxChange:=Forma.CallbackChange;
but only after forma and formx have been instantiated.
----
TFormA = class(TForm)
MyLabel: TLabel;
public
procedure CallbackChange(Sender:TObject;const aValue:integer);
end;
procedure TFormA.CallbackChange(Sender: TObject; const aValue:
integer);
begin
MyLabel.Caption:=IntToStr(aValue);
end;
----
TfxChangeEvent = procedure(Sender:TObject;const aValue:integer) of
object;
TFormX = class(TForm)
private
FfxNumber: integer;
FOnFxChange: TfxChangeEvent;
procedure SetfxNumber(const Value: integer);
published
property fxNumber:integer read FfxNumber write SetfxNumber;
property OnFxChange:TfxChangeEvent read FOnFxChange Write
FOnFxChange;
end;
procedure TFormX.SetfxNumber(const Value: integer);
begin
FfxNumber := Value;
if Assigned(FOnFxChange) then
begin
FOnFxChange(Self,FfxNumber);
end;
end;
__________________________________________________
Do You Yahoo!?
Yahoo! Auctions - buy the things you want at great prices
http://auctions.yahoo.com/
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
