Forum: Object-Pascal / Delphi-Language
Delphi
by Sharky,
5. Feb 2005
Das hat man nun vom Copy & Paste ;-)
Forum: Object-Pascal / Delphi-Language
Delphi
by Sharky,
5. Feb 2005
Und um das ganze noch Wasserdicht zu machen ->
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;
Forum: Object-Pascal / Delphi-Language
Delphi
by Sharky,
5. Feb 2005
Hai soup,
einfach über ein Typcasting machen ;-)
procedure TForm1.MouseMoveoverShape(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
FieldNameLabel.Caption := (Sender AS TShape).Name; //in einem Label wird der Name des Objekts ausgegeben
end;