Label

[Helmi]

Hallo Jungs,

ich brauche dringend eure Hilfe:

ich brauche ein Label mit dem Event OnChange

kann mir da jemand helfen?

mfg
Helmi

[SirThornberry]

Bastel einfach ne neue Komponente und leite diese von TLabel ab. Dort überschreibst du dann einfach Caption und Font je nach dem bei was alles dein onChange aufgerufen werden soll

[Helmi]

würde ich ja gerne
aber irgendwie bin ich zu blöd dazu

ich hab mcih schon mal an einem TEdit gehalten und hab´s dort abgeschaut
bringt aber nix

[Nicolai1234]

Ein Label ändert sich aber nur dann, wenn du es im sagst also kannst du doch schreiben:

Delphi-Quellcode:

Label1.caption := 'Beispiel';
DeineProcedure;

Oder täusche ich mich da?

[SirThornberry]

So sollte es gehen

Delphi-Quellcode:

[...]
type
  TOwnLabel = class(TLabel)
  private
    FChangeEvent: TNotifyEvent;
    function FGetCaption: TCaption;
    procedure FSetCaption(AValue: TCaption);
  published
    property Caption read FGetCaption write FSetCaption;
    property OnChange: TNotifyEvent read FChangeEvent write FChangeEvent;
  end;

[...]
implementation

function TOwnLabel.FGetCaption: TCaption;
begin
  result := inherited Caption;
end;

procedure TOwnLabel.FSetCaption(AValue: TCaption);
begin
  inherited Caption := AValue;
  if Assigned(FChangeEvent) then FChangeEvent(Self);
end;

[himitsu]

Da der Text in einem Label ja nur Programmseitig geändert werden kann, ist sowas nicht vorgesehn. aber du kannst ja die Änderung umleiten


stattLabel1.Caption := 'Der neue Text' z.B. enfach

Delphi-Quellcode:

Procedure Label1_Caption(S: String);
  Begin
    Label1.Caption := S;
    ... // Text an Label1 gesendet
  End;


Label1_Caption('Der neue Text');

oder nur wenn der Text wirklich geändert wurde

Delphi-Quellcode:

Procedure Label1_Caption(S: String);
  Begin
    If Label1.Caption = S Then Exit;
    Label1.Caption := S;
    ... // der Text im Label1 wurde geändert
  End;


Label1_Caption('Der neue Text');

Bei ... kannst du eintragen, was du willst.

[OT]mein IE war verreckt

[Helmi]

Vielen herzlichen Dank, SirThornberry

Hat prima funktioniert