Label => "Change"

[scrat1979]

Zitat von Tommy1988:

mhh.. ich probiers grade mal
Edit:

Hab nen kleinen Hänger, deswegen ist die Zeile X so doof:

Delphi-Quellcode:

if OldString = OldString then // Zeile X
 begin
  // Zeile Y , nix tun weil OldString immernoch gleich OldString ist
 end else
  begin
  ListBox1.Items.Add(OldString) // Das hier könnte ja wenn Zeile X nicht doof wär bei zeile Y stehen
  end;

Was Du uns da sagen möchtest verstehe ich ehrlich gesagt überhaupt nicht, aber was Dein Problem angeht versuch doch folgendes:

Delphi-Quellcode:

[...]
type
  TForm1 = class(TForm)
[...]
  public
    { Public-Deklarationen }
    OldCaption : String;
  end;

[...]
procedure TForm1.TimerTimer(Sender: TObject);
begin
 { Wenn Variable OldCaption noch nicht gesetzt }
 if OldCaption = '' Then OldCaption := Label1.Caption;

 { Neue Caption? }
if Label1.Caption <> OldCaption Then Begin;
  ShowMessage('Label1.Caption wurde geändert!!!');
  OldCaption := Label1.Caption; // Neue Caption der Variablen zuweisen...
End;

end;
[...]
end.