void TForm1::PlugClick(TObject *Sender)
{
TMenuItem *Wow_WhatIsIt = dynamic_cast<TMenuItem *>(Sender);
if(Wow_WhatIsIt)
{
/* Sender -- это действительно TMenuItem* , и теперь указатель на него находится в Wow_WhatIsIt*/
Wow_WhatIsIt->...
}
/* ... */
}
TObject
Как в Builder'е написать то же самое, что в delphi
procedure TForm1.PlugClick(sender: TObject);
begin
with (sender as TmenuItem) do
begin
...
end;
...
end;
procedure TForm1.PlugClick(sender: TObject);
begin
with (sender as TmenuItem) do
begin
...
end;
...
end;
Цитата:
Originally posted by Fevzi
Как в Builder'е написать то же самое, что в delphi
procedure TForm1.PlugClick(sender: TObject);
begin
with (sender as TmenuItem) do
begin
...
end;
...
end;
Как в Builder'е написать то же самое, что в delphi
procedure TForm1.PlugClick(sender: TObject);
begin
with (sender as TmenuItem) do
begin
...
end;
...
end;
Код: