OOP / Methodenbezeichner: Anfängerfrage

[Robert_G]

Zitat von Jens Schumann:

Hallo Robert_G
toller Beitrag. Nur leider völlig am Thema vorbei . Tso's Problem ist, dass sie/er eine Komponente die sie/er auf ein Form gesetzt hat innerhalb einer globalen procedure aufrufen möchte. Das Problem ist mit einem erweiterten TLabel Nachfahren auch nicht gelöst.

Erwischt!
Ich sah bei ihm das hier:

Delphi-Quellcode:

procedure LabelRefresh;
begin
  Label1.Caption := IntToStr(wert);
end;

Das heißt, diese Prozedur hätte eine fixe globale Variable genommen um ein fixes Label zu besetzen.

Dort wo Wert beschrieben wird, könnte er gleich die typisierte Property des "neuen" Labels besetzen.
Insofern ich es richtig verstanden habe?

Zitat von Jens Schumann:

Ich halte maximov's Vorschlag keine globalen Methoden zu verwenden für den Besten.

Der gilt immer und überall.

Zitat von Jens Schumann:

Du versteckst die published Caption property im protected Abschnitt wie unsauber.
Außerdem funktioniert das gar nicht unter Delphi. Dort gilt: Einmal published immer published. Egal was der Nachfahre macht.

Das ist einfach nicht wahr, Jens. Gehe die Schritte von oben durch und du hast es in unter einer Minute auf deinem Form.
Wenn du jetzt noch die Eigenschaft "Caption" im OI siehst bekommst du 'nen Kasten Bier.
Wenn du ohne Typecast auf TLabel/TCustomLabel/[alle Vorgänger bis TControl] an die Caption per Code zugreifen kannst, gibt's den nächsten.

[SirThornberry]

es macht aber auch keinen sinn etwas das einmal published war in protected zu verschieben. Denn durch casten auf den Vorgängertyp kann man ohne ableitung oder andere schwierigkeiten dann doch auf den wert zugreifen.

[Robert_G]

Zitat von SirThornberry:

es macht aber auch keinen sinn etwas das einmal published war in protected zu verschieben. Denn durch casten auf den Vorgängertyp kann man ohne ableitung oder andere schwierigkeiten dann doch auf den wert zugreifen.

Ist alles richtig!
Aaaabeer wenn du dann bitte die Freundlichkeit hättest um den Typen mit Anlauf in den Hintern zu treten, der diese Property in TControl eingebaut hat OHNE den Setter als virtual protected zu deklarieren? (Ist übrigens der gleiche Getter/Setter wie bei Text )
Da TLabel kein richtiges WindowsControl sondern nur ein selbst gezeichnetes ist, kann man nichtmal auf die scheußliche WM_XXX-Vorschlaghammer -Methode eine Änderung des Wertes abfangen.
Es gibt also nur zwei Lösungen:

• Man versteckt die Caption um die Wahrscheinlichkeit zu verringern, dass jemand einen Wert direkt dort reinwirft.
• Man castet sich überall einen Wolf, freut sich, dass man Caption sichtbar gelassen hat und springt 3-mal im Kreis

Welcher von den beiden Wegen wäre etwas ... nunja ... "umständlich"?

[Hansa]

Insbesondere Robert : nur nicht nervös werden. Vor allem nicht mit Sachen rumwerfen, die nur in seltenen Spezialfällen gebraucht werden. 8) Was soll überhaupt gemacht werden ? Ein Label erhält ein zusätzliches integer-Feld, welches im OI eingestellt werden kann, oder ? Dieser Wert soll dann später als Caption angezeigt werden. Warum deshalb die Caption verschwinden soll ist mir schleierhaft und wohl auch eher uninteressant.

Delphi-Quellcode:

unit Intlbl;

interface

uses
  Windows, Messages, SysUtils, Graphics, Classes, Controls, DBCtrls, StdCtrls;

procedure Register;

type

  TIntLabel = class(TCustomLabel)
    private
      FWert : integer;
      procedure SetWert(const Value: integer);
    public
      constructor Create(AOwner: TComponent); override;
      destructor Destroy; override;
    published
      property Wert: integer read FWert write SetWert;
  end;

implementation

constructor TIntLabel.Create(AOwner: TComponent);
begin
  inherited;
  Wert := 0;
  Caption := IntToStr (Wert);
end;

destructor TIntLabel.Destroy;
begin
  inherited;
end;

procedure TIntLabel.SetWert(const Value: integer);
begin
  FWert := Value;
  Caption := IntToStr (Value);
end;

procedure Register;
begin
  RegisterComponents('Eigene', [TIntLabel]);
end;

end.

Reicht das nicht aus ? Falls eine kleinere Änderung eines Labels nur mit "virtual strict protected overload abstract" und dem verstecken vorhandener Sachen gemacht werden soll, dann aber ohne mich. 8) Falls es den Fragesteller überhaupt noch interessiert : alles schließen -> Datei -> neu -> weitere -> Package -> da den Code hier einfügen als Unit (vorher in Unit abspeichern). Dann noch compilieren und installieren. Was im OI in das Feld Wert eingetragen wird, das steht dann in der Caption.

[Robert_G]

@Hansa
Hast du auch nur einen Fetzen von dem kapiert, was ich oben geschrieben habe?
Auch nur einen einzigen, klitzekleinen Fetzen?

[Hansa]

ne

Edit : allerdings habe ich Dein WertDings gesehen. Wollte es allerdings so machen, daß es geht und deshalb lieber selber neu. Ist doch sowieso nur ein Quickie.

[Jens Schumann]

Zitat von Robert_G:

Das ist einfach nicht wahr, Jens. Gehe die Schritte von oben durch und du hast es in unter einer Minute auf deinem Form.
Wenn du jetzt noch die Eigenschaft "Caption" im OI siehst bekommst du 'nen Kasten Bier.
Wenn du ohne Typecast auf TLabel/TCustomLabel/[alle Vorgänger bis TControl] an die Caption per Code zugreifen kannst, gibt's den nächsten.

Hallo Robert,
her mit dem Bier!
Ich habe das Problem auf folgenden Code reduziert und kann im OI wie erwartet die property Caption

Delphi-Quellcode:

sehen.
unit TestLabel;

interface

uses
  SysUtils, Classes, Controls, StdCtrls;

type
  TTestLabel = class(TLabel)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
    property Caption;
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Beispiele', [TTestLabel]);
end;

end.

Siehe auch das Bild in der Anlage

[Robert_G]

Zitat von Jens Schumann:

Hallo Robert,
her mit dem Bier!
Ich habe das Problem auf folgenden Code reduziert und kann im OI wie erwartet die property Caption sehen.

Hätte ich mich selbst an meine eigene Anleitung gehalten und das Ergebnis im Form designer (nicht nur im Code Editor) angesehen...
Hätte ich den Käse auch bemerkt. Aber es gibt nur einen Kasten, da die Eigenschaft nicht im Code Editor auftaucht. (auch wenn es keinen Compilierfehler gibt wenn man sie benutzt )

Ich erwarte dann eine PN mit Anschrift und Biermarke...

Ich bin eindeutig zu selten im Form designer