Ergebnis der Suchanfrage

• Forum: FreePascal

  Re: Problem mit Code, seit Komponente zur Laufzeit erstellt

   
    by himitsu, 5. Feb 2009
  du meinst so zur Sicherheit, falls er da mal was Anderes macht,
  BracketOpen:= TCheckBox.Create(self);
  damit wohl die folgenden Casts nicht plötzlich meckern. :angel2:
  
  if (Sender is TCheckBox) and (BracketOpen = Sender) then
  
  // hier man muß auch überall Kürzen
  if BracketOpen = (Sender as TCheckBox) then ...........|
• Forum: FreePascal

  Re: Problem mit Code, seit Komponente zur Laufzeit erstellt

   
    by himitsu, 5. Feb 2009
  //Checkbox BracketOpen
  Setlength(BracketOpen, zaehler + 1);
  BracketOpen := TCheckBox.Create(self);
  BracketOpen.Parent := GroupBoxesItem;
  BracketOpen.Left := 0;
  BracketOpen.Top := -4;
  BracketOpen.Width := 30;
  BracketOpen.Height := 22;
  BracketOpen.Caption := '(';
  BracketOpen.Font.Bold := false;