Never publish before you have tested !


If you download

www.fonz.nl/utilcontrols.zip

you have a small program that shows both ways of setting the data.

Can you tell me the mistake in the code ? Ok: I'll make the title of this post as my wallpaper.

Fons.

procedure SetControlData(Control : TCheckBox; Data : boolean);
var Save : TNotifyEvent;
begin
Save := Control.OnClick;
Control.OnClick := nil;
Control.Checked := Data;
Control.OnClick := Save;
end;

procedure SetControlData(Control : TEdit; Data : string); overload;
var Save : TNotifyEvent;
begin
Save := Control.OnChange;
Control.OnClick := nil;
Control.Text := Data;
Control.OnChange := Save;
end;

procedure SetControlData(Control : TRadioButton; Data : boolean); overload;
var Save : TNotifyEvent;
begin
Save := Control.OnClick;
Control.OnClick := nil;
Control.Checked := Data;
Control.OnClick := Save;
end;

procedure SetControlData(Control : TRadioGroup; Data : integer); overload;
var Save : TNotifyEvent;
begin
Save := Control.OnClick;
Control.OnClick := nil;
Control.ItemIndex := Data;
Control.OnClick := Save;
end;

procedure SetControlData(Control : TListBox; Data : integer); overload;
var Save : TNotifyEvent;
begin
Save := Control.OnClick;
Control.OnClick := nil;
Control.ItemIndex := Data;
Control.OnClick := Save;
end;

procedure SetControlData(Control : TScrollBar; Data : integer); overload;
var Save : TNotifyEvent;
begin
Save := Control.OnChange;
Control.OnChange := nil;
Control.Position := Data;
Control.OnChange := Save;
end;
.

Quantcast