For each in Delphi

[himitsu]

Der Sprung ist nicht wirklich in das Controls.DisplayButton(TClsButtonInfo(oButton)); , sondern ins "implizite" Ende der Schleife (end; ) und da es kein End gibt, wird die Position halt in der Zeile des vorhergehenden Befehls angezeigt.

Delphi-Quellcode:

for oButton in goProgBar do
begin
  if oButton is TClsButtonInfo then
  begin
    Controls.DisplayButton( TClsButtonInfo( oButton ) );
  end;
end;

Denn der Code für die For-Schleife befindet sich nicht nur am Anfang der Schleife, sondern auch teilweise danach.

Zitat:

Dann ist halt kein Button der Klasse TClsButtonInfo in der Komponentenliste.

For-In bei einem TComponent durchläuft alle "Components", also die Ownerbeziehungen, da hierfür ein entsprechender "Enumerator" implementiert wurde.

Wenn der Button über den FormDesigner erstellt und aus der DFM geladen wurde, dann ist sein Owner "immer" die Form.
Die Beziehungen was wo dargestellt wird, werden aber über den Parent und nicht über den Owner geregelt.


Will man was Anderes per For-In durchlaufen, dann braucht man einen anderen und eventuell selbst erstellten Enumerator.

[EWeiss]

Zitat:

Wenn der Button über den FormDesigner erstellt und aus der DFM geladen wurde, dann ist sein Owner "immer" die Form.

Nein es gibt keinen FormDesigner NonVcl.
Deshalb auch meine Frage im vorherigen Beitrag.

Zitat:

Ist es möglich das es daran liegt das meine Anwendung Nonvcl ist?
Also keine Componenten in herkömmlichen Style verwendet werden?

Delphi-Quellcode:

function TClsProgBar.AddButton(var oButton: TClsButtonInfo): Bool;
begin
  if ButtonExists(oButton.Num) then
    RemoveButton(oButton.Num);

  FColButtons.Add(oButton);
  FColButtons.Insert(oButton.Num, oButton);

  Result := True;

end;

Die Button werden in die TObjectList FColButtons gespeichert.
Warum sollte dann hier kein Button existieren.. oder hab ich da nen DenkFehler?

Zitat:

Denn der Code für die For-Schleife befindet sich nicht nur am Anfang der Schleife, sondern auch teilweise danach.

er springt nicht mal in die Bedingung wohlbemerk nach der änderung mit den begin..
if oButton is TClsButtonInfo then

er tickt zweimal die "for oButton" an und springt dann raus.
function Button(Btn: Integer): TClsButtonInfo;

Zitat:

Dann ist halt kein Button der Klasse TClsButtonInfo in der Komponentenliste.

Das ist meine vermutung da Nonvcl.
Ich glaube das muss ich anders händeln..

So werden die Button erstellt.

Delphi-Quellcode:

procedure TClsControls.AddButton(hMain: HWND; Index: Integer);
begin

  btnButtons[Index] := CTRL_PushButtonCreate(hMain, (SKAERO_FOLDER + 'BTN_Push.png'),
    ' ', 11, 25, 40, 40, ID_BTN_BUTTON + Index, SKAERO_BTNTEXTCOLOR, 1, 5);
  SKAERO_SetAnchorMode(btnButtons[Index].Handle, ANCHOR_BOTTOM_RIGHT);
  SKAERO_SetZorder(btnButtons[Index].Handle, HWND_TOP);
  ShowWindow(btnButtons[Index].Handle, SW_HIDE);

  FButtonHandle := btnButtons[Index].Handle;

end;

gruss

[Uwe Raabe]

Der Knackpunkt liegt in dem Create-Aufruf für die Buttons. Das Create erwartet einen Owner als Parameter, in dessen Components-Liste sich der Button eintragen soll. Wenn du später mit for-each den goProghBar iterieren willst, musst du auch diesen als Owner beim Create übergeben (dann sollte auch der Code von Sir Rufo funktionieren).

Ohne genauere Informationen zu Klassendeklarationen, etwaige default Field-Props und Enumeratoren kann man allerdings wenig zur Lösung beitragen.