etwas mit Allen Objekten tun

Nightfly · Beiträge: 163

Hi

verzeiht mir diese dumme frage, aber ich hab echt nix gefunden.

Gibt es eine Schleife, mittels der ich in einem Rutsch alle Objekte eines Typs verändern kann? z.B. möchte ich bei allen Grids auf meinem Formular die spalten anhand der Auflösung gleichmäßig aufteilen.

Pseudocode sähe so aus

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

with allen DBGrids do
begin 
Spaltenbreite := Bildschirmbreite:anzahlDerSpalten
 with allen Spalten do
 begin 
 breite := Spaltenbreite
 end;
end;

Moderiert von Tino: Code- durch Delphi-Tags ersetzt & Topic verschoben.

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Hi,

such mal in der Delphi-Hilfe und hier im Forum nach FindComponent.

Gruß
Tino

oetzgemoeh · Beiträge: 28

Möglich wäre es zum Beispiel, alle der Form untergeordneten Komponenten nach einem bestimmten Typ zu durchsuchen und dann alle Komponenten dieses Typs entsprechend zu verändern.
Am Beispiel TStringgrid:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject);
var i,breite:integer;
    p:^tstringgrid;
    c:tcomponent;
begin
for i:=0 to form1.ComponentCount-1 do
  begin
  c:=components[i];
  if c.ClassType=tstringgrid then
    begin
    p:=@c;
    breite:=round(form1.Width/p^.ColCount);
    p^.DefaultColWidth:=breite;
    end;
  end;
end;

Ist sicher komplizierter als nötig, aber funktioniert... :roll:

Nightfly · Beiträge: 163

hmmm, das mit den Zeigern is mir Unklar. Geht das auch ohne?

Mal eine ganz einfache Frage in diesem zusammenhang: ich hab ein Formular mit einem Button, der bloß ein was kann. Nämlich

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Sender.Caption:= 'Text';
end;

Zitat:

Fehlermeldung: Undefinierter Bezeichner Caption.

Ich dachte, die Variable Sender Entspricht dem Objekt, welches die Aktion ausgelößt hat.

Button1.Caption := 'Text' geht ja.

Moderiert von Tino: Delphi- und Quote-Tags hinzugefügt.

Wenn das mit dem Sender gehn würde könnte ich ja bei 10 Buttons überall dir Prozedur Button1Click eintragen, trotzdem verändert sich ja dan beim anklicken nich Button1, sondern der angeklickte. wie erreiche ich das?

oetzgemoeh · Beiträge: 28

Sender ist vom Typ TObject und hat deshalb nicht die Eigenschaft Caption.
Um die Caption zu verändern, musst Du Delphi erst klarmachen, dass es sich bei Sender um Einen Button handelt:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
TButton(Sender).caption:='XYZ';
end;

oetzgemoeh · Beiträge: 28

Wobei mir einfällt:
Auf diese Weise ist auch Dein erstes Problem unkomplizierter zu lösen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to Form1.ComponentCount-1 do
  if Components[i].ClassType=TStringGrid then
    TStringGrid(Components[i]).DefaultColWidth:=Round(Form1.Width/TStringGrid(Components[i]).ColCount);
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme