AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Objekt übergeben

Ein Thema von Pfanne · begonnen am 23. Feb 2011 · letzter Beitrag vom 24. Feb 2011
Antwort Antwort
Benutzerbild von joachimd
joachimd

Registriert seit: 17. Feb 2005
Ort: Weitingen
684 Beiträge
 
Delphi 12 Athens
 
#1

AW: Objekt übergeben

  Alt 24. Feb 2011, 09:29
Ich habe in einer Groupbox 8 Trackbars + labels ect.
sowie ein globales array[1..8] für die Position der Trackbars.
Rein aus dem Bauch raus würde ich hier keine doppelte Datenhaltung vorsehen (Position in Trackbar und in array), sondern direkt die Trackbars ins array speichern. Kommt natürlich darauf an, was Du daraus machen willst bzw. musst
Joachim Dürr
Joachim Dürr Softwareengineering
http://www.jd-engineering.de
  Mit Zitat antworten Zitat
chuckholdt

Registriert seit: 2. Dez 2007
Ort: Hamburg
15 Beiträge
 
Delphi 2009 Professional
 
#2

AW: Objekt übergeben

  Alt 24. Feb 2011, 09:43
Du kannst auch mit dem Tag property arbeiten, dann ist die Zuordnung sicher

Chuck
thomas (chuck) holdt
  Mit Zitat antworten Zitat
Pfanne

Registriert seit: 27. Jan 2011
23 Beiträge
 
#3

AW: Objekt übergeben

  Alt 24. Feb 2011, 09:59
Zitat:
Rein aus dem Bauch raus würde ich hier keine doppelte Datenhaltung vorsehen (Position in Trackbar und in array), sondern direkt die Trackbars ins array speichern. Kommt natürlich darauf an, was Du daraus machen willst bzw. musst
Werd ich mal ins Auge fassen.

Um mein Object-Verständnis zu vertiefen, wäre es für mich trotzdem von interesse zu wissen, ob meine "Objekt-Gedanken" richtig und machbar sind.

Zitat:
Du kannst auch mit dem Tag property arbeiten, dann ist die Zuordnung sicher
Dafür reichen meine Kenntnisse leider nicht, ich habe leider keine Vorstellung was du damit meinst

Am meiseten würde es mir weiterhelfen, wenn ihr die von mir vorgeschlagenen Proceduren richtigstellen könntet bzw. mir meine Gedankenfehler aufzeigen könntet.

Danke für die schnellen Antworten.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.316 Beiträge
 
Delphi 12 Athens
 
#4

AW: Objekt übergeben

  Alt 24. Feb 2011, 10:15
Also, du könntest ein array[1..8] of TTrackBar anlegen, anstatt deines jetzigen Arrays, darüber hast du jederzeit direkten Zugriff auf eine Trackbars.
> Dieses Array befüllst du dann im OnCreate deiner Form.

Dabei Helfen kann auch Delphi-Referenz durchsuchenFindComponent/Hier im Forum suchenFindComponent.




Zitat:
.Tag
Ist dir schonmal aufgefallen, daß nahezu alle VCL-Componenten (alles was von TComponent abgeleitet ist und welches man oftmals direkt auf seine Form ziehen kann) ein Property mit dem Namen "Tag" besitzt?

Dieses Property wird von der VCL (Delphi) nicht genutzt und ist für den Programmierer gedacht,
dieser kann dort sonstwas reinmachen ... was er nur will und was in diesen Integer reinpaßt.

Da könnte man z.B. im OI irgendwelche Zahlen eintragen und dann im Programm schauen was da drinsteht und jeweils anders reagieren.
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu (24. Feb 2011 um 10:28 Uhr)
  Mit Zitat antworten Zitat
Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.487 Beiträge
 
Delphi 12 Athens
 
#5

AW: Objekt übergeben

  Alt 24. Feb 2011, 10:54
Die vorgeschlagenen Varianten als Realisierungsvorschlag:
Delphi-Quellcode:
type
  TForm1 = class(TForm)
    Groupbox: TGroupbox;
    Trackbar1: TTrackbar;
    Trackbar2: TTrackbar;
{...}
  private
    function GetTrackbar(AIndex: Integer): Trackbar;
{...}
  public
    property Trackbar[AIndex: Integer]: TTrackbar read GetTrackbar;
{...}
  end;

implementation

function TForm1.GetTrackbar(AIndex: Integer): Trackbar;

{Variante 1: über den Namen suchen}
begin
  Result := FindComponent('Trackbar' + IntToStr(AIndex));
end;

{Variante 2: über den Tag suchen, der Tag muss im Objektinspektor zugewiesen sein}
var
  i: Integer;
begin
  with Groupbox do
  begin
    for i := 0 to Controls.Count - 1 do
    begin
      if (Controls[i] is TTrackbar) and (Controls[i].Tag = AIndex) then
      begin
        Result := TTrackbar(Controls[i]);
        Exit;
      end;
    end;
  end;
  Result := nil;
end;
Delphi-Quellcode:
{Variante 3: über initialisiertes Array zugreifen}
type
  TForm1 = class(TForm)
    Groupbox: TGroupbox;
    Trackbar1: TTrackbar;
    Trackbar2: TTrackbar;
{...}
    procedure FormCreate(Sender: TObject); // <- muss im Objektinspektor zugewiesen sein
  private
    FTrackbar: array[1..8] of TTrackBar;
    function GetTrackbar(AIndex: Integer): Trackbar;
{...}
  public
    property Trackbar[AIndex: Integer]: TTrackbar read GetTrackbar;
{...}
  end;

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  FTrackbar[1] := Trackbar1;
  FTrackbar[2] := Trackbar2;
{...}
end;

function TForm1.GetTrackbar(AIndex: Integer): Trackbar;
begin
  Result := FTrackbar[AIndex];
end;
  Mit Zitat antworten Zitat
Pfanne

Registriert seit: 27. Jan 2011
23 Beiträge
 
#6

AW: Objekt übergeben

  Alt 24. Feb 2011, 11:04
Suuupiee,

danke für die ausführlichen Antworten.
Das mit dem Tag hab ich jetzt auch verstanden.

Wenn ich im Form das (den?) Tag der TrackBars durchnummeriere (Tag 1-8) dann frage ich das (den?) im Event einfach ab.

Klasse, werd ich nachher gleich ausprobieren.

Danke....
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:01 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz