Subject | SpinEdit problems |
---|---|
Author | lee@leeway-be.com |
Post date | 2001-03-12T09:39:17Z |
Hi, how do I get the spinedit to work ?
I want a label to reflect changes I make in the spinedit.
Changes with the mouse or with the keyboard.
I can not get it to work.
I tried the .value or the .asstring
I tried the .onchange the .onmodified .ontextchangedat
But It just refuses to display the changes I make in the
spineditcontrol.
Can anybody help me out here ?
regards
Lee
unit U_Test;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
StdCtrls, LMDControl, LMDBaseControl, LMDBaseGraphicControl,
LMDBaseLabel, LMDCustomSimpleLabel, LMDSimpleLabel,
LMDCustomControl,
LMDCustomPanel, LMDCustomBevelPanel, LMDBaseEdit, LMDCustomEdit,
LMDCustomMaskEdit, LMDCustomExtSpinEdit, LMDExtSpinEdit;
type
TForm1 = class(TForm)
LMDExtSpinEdit1: TLMDExtSpinEdit;
LMDSimpleLabel1: TLMDSimpleLabel;
procedure LMDExtSpinEdit1Modified(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.LMDExtSpinEdit1Modified(Sender: TObject);
begin
LMDSimpleLabel1.Caption := LMDExtSpinEdit1.AsString;
LMDSimpleLabel1.Refresh;
end;
end.
I want a label to reflect changes I make in the spinedit.
Changes with the mouse or with the keyboard.
I can not get it to work.
I tried the .value or the .asstring
I tried the .onchange the .onmodified .ontextchangedat
But It just refuses to display the changes I make in the
spineditcontrol.
Can anybody help me out here ?
regards
Lee
unit U_Test;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
StdCtrls, LMDControl, LMDBaseControl, LMDBaseGraphicControl,
LMDBaseLabel, LMDCustomSimpleLabel, LMDSimpleLabel,
LMDCustomControl,
LMDCustomPanel, LMDCustomBevelPanel, LMDBaseEdit, LMDCustomEdit,
LMDCustomMaskEdit, LMDCustomExtSpinEdit, LMDExtSpinEdit;
type
TForm1 = class(TForm)
LMDExtSpinEdit1: TLMDExtSpinEdit;
LMDSimpleLabel1: TLMDSimpleLabel;
procedure LMDExtSpinEdit1Modified(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.LMDExtSpinEdit1Modified(Sender: TObject);
begin
LMDSimpleLabel1.Caption := LMDExtSpinEdit1.AsString;
LMDSimpleLabel1.Refresh;
end;
end.