Sender :TObject geht nicht als Zeiger?

[mirage228]

Zitat von Sharky:

Und um das ganze noch Wasserdicht zu machen ->

Delphi-Quellcode:

procedure TForm1.MouseMoveoverShape(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin 
  If (Sender is TShape) then
  begin
    FieldNameLabel.Caption := (Sender AS TShape).Name;
  end;
end;

Hi,

wenn Du bereits mit IS prüfst, ob es ein TShape ist, dann brauchst Du nicht mehr mit AS casten, da AS intern selbst "IS" aufruft, um zu prüfen, ob es passt. Ein direkter Typecast wäre dann besser

Delphi-Quellcode:

procedure TForm1.MouseMoveoverShape(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin 
  if (Sender is TShape) then
  begin
    FieldNameLabel.Caption := TShape(Sender).Name;
  end;
end;