Label soll immer die höhe eines EditFeldes anzeigen

[Darksniper]

wie der Titel schon sagt will ich ein Label das immer die höhe eines EditFeldes anzeigt.

Wie geht das?

[scrat1979]

Zitat:

Zitat von Darksniper

wie der Titel schon sagt will ich ein Label das immer die höhe eines EditFeldes anzeigt.

Wie geht das?

Änders Du im Quellcode die Höhe des Edit-Feldes? Dann füge darunter einfach folgendes hinzu:

Delphi-Quellcode:

Label1.Caption := IntToStr(Edit1.Height);

Sonst würde mir nur noch die Möglichkeit über ein Timer mit o.g. Befehl im OnTimer-Event einfallen...

SCRaT

[Darksniper]

also das Label soll sich immer wider akualisieren

[dajuhsa]

alle 10 sekunden? dann nimm nen timer mit interval 10000 und schreib obigen code rein

[scrat1979]

Zitat:

Zitat von Darksniper

also das Label soll sich immer wider akualisieren

Was genau hast Du denn vor? Wie gesagt, irgendwo musst Du ja die Höhe des Edit-Feldes verändern, sonst macht es ja keine Sinn. Da kannst Du dann auch wie oben geschrieben das Label aktualisieren.

Wenn Du das Label z.B. alle 5 Sekunden aktualisieren möchtest, dann füge Deiner Form ein Timer hinzu und benutze obigen Code, um das Label zu aktualisieren. Den Timer setzt Du auf 5000 (5*1000msec) und startest ihn (enabled := true).

Das müsste Dich doch zur Lösung bringen, oder?

[mkinzler]

Ich würde einfach bei Änderung der Größe des Edits die Beschriftung ändern.

[dajuhsa]

also du hast irgendwo sowas

Delphi-Quellcode:

Edit1.Height := 45;

dann ersetz es durch

Delphi-Quellcode:

Edit1.Height := 45;
Label1.Caption := IntToStr(Edit1.Height)

:stupid:

[scrat1979]

Das sag ich doch schon die ganze Zeit :gruebel:

[Darksniper]

und wie stellt man den timer ein sodass er immer wieder abläuft

[mkinzler]

Du hast immer noch nicht kapiert, was man dir sagen will: Kein Timer sondern direkt bei der Änderung der Größe des Edits.

[scrat1979]

Zitat:

Zitat von Darksniper

und wie stellt man den timer ein sodass er immer wieder abläuft

1. Intervall setzen in msek (z.B. 3500 = 3.5 Sekunden)
2. Enabled := True setzen

--> OnTimer-Event wird alle 3.5 Sekunden aufgerufen, bis Enabled := False gesetzt wird.

SCRaT

[scrat1979]

Zitat:

Zitat von mkinzler

Du hast immer noch nicht kapiert, was man dir sagen will: Kein Timer sondern direkt bei der Änderung der Größe des Edits.

Das Gefühl habe ich auch. Ein Timer halte ich auch für überflüssig. :cheers:

[Darksniper]

Zitat:

Zitat von scrat1979

Zitat:

Zitat von mkinzler

Du hast immer noch nicht kapiert, was man dir sagen will: Kein Timer sondern direkt bei der Änderung der Größe des Edits.

Das Gefühl habe ich auch. Ein Timer halte ich auch für überflüssig. :cheers:

Damit spart man sich ne meng zeilen

[scrat1979]

Zitat:

Zitat von Darksniper

Damit spart man sich ne meng zeilen

Mag schon sein. Aber man sagt, der Timer sei verhältnismäßig resourcenlastig wenn ich mich richtig erinnere. Da müsste man schon abwägen und überlegen, nicht doch vllt lieber z.B. 20 Zeilen mehr Quelltext zu schreiben.

SCRaT

[mkinzler]

Du hast doch bestimmt ne Klingel an deiner Haustür, an der dann Gäste klingeln. Oder hast du einen Angestellten (Thread) der regelmässig vor die Tür geht um zu sehen, ob einer davorsteht?

[dajuhsa]

^^

[Hawkeye219]

Hallo,

ich hätte da noch eine Lösung ohne Timer:

Delphi-Quellcode:

type
  TEdit = class (StdCtrls.TEdit)
  private
    FOnSizeChange : TNotifyEvent;
  public
    procedure SetBounds (ALeft, ATop, AWidth, AHeight: Integer); override;
    property OnSizeChange: TNotifyEvent
      read FOnSizeChange write FOnSizeChange;
  end;

  TForm1 = class (TForm)
    {...}
    Button1 : TButton;
    Edit1 : TEdit;
    Label1 : TLabel;
    procedure Button1Click (Sender: TObject);
    procedure FormCreate (Sender: TObject);
  private
    procedure SizeChanged (Sender: TObject);
  end;

procedure TEdit.SetBounds (ALeft, ATop, AWidth, AHeight: Integer);
begin
  inherited;
  if Assigned(FOnSizeChange) then
    FOnSizeChange (Self);
end;

procedure TForm1.Button1Click (Sender: TObject);
begin
  with Edit1.Font do
    Size := Size + 1;
end;

procedure TForm1.FormCreate (Sender: TObject);
begin
  Edit1.OnSizeChange := SizeChanged;
end;

procedure TForm1.SizeChanged (Sender: TObject);
begin
  with (Sender as TEdit) do
    Label1.Caption := Format('Height: %d', [Height]);
end;

Der Vorteil dieser Lösung besteht darin, daß sie auch auf (versteckte) Änderungen des Fonts im Edit reagiert. Ein manuelles Nachführen des Labels ist in solchen Fällen oft schwierig.

Gruß Hawkeye

[dajuhsa]

das hatten wir grade erst^^
http://www.delphipraxis.net/internal...918&highlight=