AGB  ·  Datenschutz  ·  Impressum  







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

Sich selbst ausblendendes Label

Ein Thema von meierotto · begonnen am 5. Aug 2005 · letzter Beitrag vom 9. Aug 2005
 
meierotto

Registriert seit: 20. Mai 2005
Ort: Cottbus
73 Beiträge
 
Delphi 2005 Professional
 
#4

Re: Sich selbst ausblendendes Label

  Alt 5. Aug 2005, 14:49
Vielen Dank für beide interessanten Vorschläge. Ich habe die 2. Vaiante mal aufgegriffen, allerdings bleibe ich an zwei Stellen hängen:
Delphi-Quellcode:
interface

uses classes, stdCtrls, ExtCtrls;

type
TDelayLabel = class(TLabel)
private
  FHide: Boolean;
  FHideTime: Integer;
  FTimer: TTimer;
  procedure SetHide(NewVal: Boolean);
  procedure Tmr_Hide(Sender: TObject);
public
  property Hide: Boolean read FHide write SetHide;
  property HideTime: Integer read FHideTime write FHideTime;
  constructor Create;
  destructor Destroy;
end;

Procedure Register;

implementation

constructor TDelayLabel.Create;
begin
  inherited Create; //benötigt Übergabeparameter
  FTimer:=TTimer.Create(FTimer);
  FTimer.Enabled:=False;
  FTimer.OnTimer:=Tmr_Hide;
end;

destructor TDelayLabel.Destroy;
begin
  FTimer.Free;
  inherited Destroy;
end;

procedure TDelayLabel.SetHide(NewVal: Boolean);
begin
  FHide:=NewVal;
  if FHide then
    begin
    FTimer.Interval:=FHideTime;
    FTimer.Enabled:=True;
    end
  else FTimer.Enabled:=False;
end;

procedure TDelayLabel.Tmr_Hide(Sender: TObject);
begin
  Self.Hide; //funktioniert so leider nicht!
end;
Könnte da bitte nochmal jemand drüberschauen?
  Mit Zitat antworten Zitat
 


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 02:08 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