ich hab zwar schon einiges probiert, bekomms aber net hin, meine neueste kreation sieht so aus:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| var
shape: Tshape
begin
shape := findcomponent('MainForm.SStatus' + inttostr(dlg_ToDoSender));
case shape.Brush.color;
clgreen: showmessage('Grün');
clyellow: showmessage('Gelb');
clred: showmessage('Rot');
end;
end; |
zuerst hatte ich
MainForm.FindComponent('...'); und dann ohne die variable, aber das funzte auch net
so gehts:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TToDoInput.FormShow(Sender: TObject);
begin
case TShape(findcomponent('SStatus' + inttostr(dlg_ToDoSender))).Brush.color of
clgreen: showmessage('Grün');
clyellow: showmessage('Gelb');
clred: showmessage('Rot');
end;
end; |
aber immer noch net global
so aber schon:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TToDoInput.FormShow(Sender: TObject);
begin
case TShape(MainForm.findcomponent('SStatus' + inttostr(dlg_ToDoSender))).Brush.color of
clgreen: showmessage('Grün');
clyellow: showmessage('Gelb');
clred: showmessage('Rot');
end;
end; |
