Hallo zusammen,
ich habe hier einen Effekt, den ich mir nicht erklären kann:
Auf einem Hauptformular existiert ein TabSheet mit 3 Seiten. Auf jedes TabSheet sollen Subforms kommen, wobei alle SubForms den gleichen Vorfahren haben. Als Quelltext:
Basisformular:
Delphi-Quellcode:
type
TBaseForm = class(TForm)
private
{ Private-Deklarationen }
FSideName : string;
FPageIdx : integer;
public
{ Public-Deklarationen }
constructor Create(AOwner: TComponent; AWinControl: TWinControl;
ASideName: string; APageIDX: integer); reintroduce; overload;
property PageIdx: integer read FPageIdx;
property SideName: string read FSideName;
end;
constructor TBaseForm.Create(AOwner: TComponent; AWinControl: TWinControl;
ASideName: string; APageIDX: integer);
begin
inherited Create(AOwner);
Self.Parent:= AWinControl;
FSideName:= ASideName;
FPageIdx:= APageIdx;
end;
Beispiel eines Unterformulars:
Delphi-Quellcode:
TMySubForm2 = class(TBaseForm)
Label1: TLabel;
CheckBox1: TCheckBox;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private-Deklarationen }
FGridNo : integer;
FEingangNo: integer;
CBState : boolean;
procedure LoadDatas;
public
{ Public-Deklarationen }
constructor Create(AOwner: TComponent; AWinControl: TWinControl;
ASideName: string; AGridNo: Byte;
APageIDX: integer); reintroduce; overload;
procedure wmSwitchCheckBox(var Msg: TMessage); message wm_SwitchCheckBox;
end;
constructor TMySubForm2.Create(AOwner: TComponent; AWinControl: TWinControl;
ASideName: string; AGridNo: Byte;
APageIDX: integer);
begin
inherited Create(AOwner, AWinControl, ASideName, APageIDX);
FGridNo:= AGridNo;
FEingangNo:= AGridNo-1;
CBState:= false;
outputdebugstring('cbstate set to false');
end;
procedure TMySubForm2.LoadDatas;
begin
if cbstate then
outputdebugstring('cbstate = true in loaddatas')
else
outputdebugstring('cbstate = false in loaddatas');
checkbox1.Checked := CBState;
end;
procedure TMySubForm2.wmSwitchCheckBox(var Msg: TMessage);
begin
if (Msg.Msg = wm_SwitchCheckBox) then
begin
Msg.Result:= 1;
CBState:= Msg.WParam = 1;
if cbstate then
outputdebugstring('cbstate = true in message')
else
outputdebugstring('cbstate = false in message');
LoadDatas;
Edit1.Text:= 'Hallo';
end;
end;
Hauptformular:
Delphi-Quellcode:
TForm1 = class(TForm)
(...)
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
MySubForm2:= TMySubForm2.Create(AdvTabSheet2, AdvTabSheet2,
'Seite 2', 2, 0);
MySubForm2.Show;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(MySubForm2.Handle, wm_SwitchCheckBox, 1, 0);
end;
Das Hauptformular erzeugt also in seiner Create-Methode die Unterformulare und bettet sie auf der entsprechenden Seite des TabSheets ein. Wechsle ich im TabSheet auf die entsprechende Seite, sehe ich das Unterformular und ich kann die dortigen Elemente TCheckBox und TEdit "bearbeiten".
Soweit so gut.
Wie weiter im Hauptformular zu sehen ist, existiert dort ein Button, der beim Klick eine Message an SubForm2 sendet. Diese Message kommt auch definitiv an. ABER: Weder die CheckBox wird gesetzt noch der Text in TEdit.Text, obwohl beide Komponenten definit NICHT nil sind.
Frage: Warum wird da nix gesetzt, wo ist da der Denkfehler?
Dank vorab und Gruß, Carsten