 DeddyH hat folgendes geschrieben  : |
  Delphi-Quelltext
1:
| If (check is TCheckbox) and TCheckbox(check).checked Then | |
Ich danke Dir, klappt hervorragend!
Leider zeigt mir diese Funktionalität mein nächstes Problem auf : (
An dieser Stelle erstelle ich Checkboxes zur Laufzeit, je nach Anzahl der Einträge in einer TXT.-Datei, wobei der Eintrag in der TXT = Meinem Checkbox Caption ist:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
| var
F: TextFile;
S: string;
pfad, Path1, Path2, Path3: string;
a, chkboxnr,i :integer;
temp : TComponent; myCkeckbox : TCheckbox;
begin
For i:=ComponentCount-1 Downto 0 Do Begin
Temp:=Components[i]; If Temp is TCheckbox Then
Temp.Free;
end;
if ListBoxRaum.ItemIndex > -1 then
pfad:= (ListBoxRaum.Items[ListBoxRaum.ItemIndex]);
Path1:='C:\Programme\Programmnname\';
Path2:=pfad;
Path3:='.txt';
AssignFile(F, Path1+Path2+Path3);
Reset(F);
a:=3;
chkboxnr:=0;
if eof(f) then begin
MessageDlg('Die Datei enthält keine Einträge!', mterror, [mbOK], 0); end
else
while not EoF(f) do
begin
Readln(F, S);
a:=a+1; chkboxnr:=chkboxnr+1; with TCheckbox.Create(self) do
begin
parent := self;
left := 570;
top := a * 25;
name := 'Checkbox'+IntToStr(chkboxnr);
caption:=S;
visible:=true;
checked:=true;
end;
end;
end; |
Soweit so gut. Dank DeddyH kann ich nun in einer zweiten Prozedur festellen, welche dieser Boxen gecked sind. Allerdings komme ich jetzt nichtmerh an die Namen (Captions) die ich zu weiterarbeiten jedoch bräuchte. Er spuckt mir in meiner Test Showmessage Rechnernamen wie 21-35 aus. Dort hätte ich gerne meine Caption aus der anderen Prozedur.
So wie: Der Rechner 2M11-21 wurde angewählt.
Diese Rechner sollen nämlich später per WOL geweckt werden, wobei ich da noch die Cations + MACs der Rechner verknüpfen muss. Das wird für mich Noob nochmal ein Spaß! :-/
