[nast9]

Привет всем, помогите пожалуйста с заданием, нужен хотя бы листинг, а то ничего понять не могу что надо сделать Разработка метода копирования свойств элемента меню. Реализовать метод Assign() для класса TMenuItem. Метод должен обеспечивать копирование свойств объекта-источника Source (класса TPersistent) в объект-приемник Destination (класса TMenuItem) по вызову Destination.Assign(Source)

[Bargest]

Скорее всего, надо очистить новый элемент меню и копировать все свойства старого (шрифт, текст, цвет, ...) в новый. Это к вопросу о "ичего понять не могу что надо сделать".
Например, вот код ASSIGN для картинок (TBitMap):

Код:

procedure TBitmap.Assign(Source: TPersistent);
var
  DIB: TDIBSection;
{$IF DEFINED(CLR)}
  NewHandle: HBITMAP;
  NewPalette: HPALETTE;
{$IFEND}
begin
  if (Source = nil) or (Source is TBitmap) then
  begin
    FreeContext;
{$IF DEFINED(CLR)}
    System.Threading.Monitor.Enter(BitmapImageLock);
{$ELSE}
    EnterCriticalSection(BitmapImageLock);
{$IFEND}
    try
      if Source <> nil then
      begin
        TBitmap(Source).FImage.Reference;
        FImage.Release;
        FImage := TBitmap(Source).FImage;
        FTransparent := TBitmap(Source).FTransparent;
        FTransparentColor := TBitmap(Source).FTransparentColor;
        FTransparentMode := TBitmap(Source).FTransparentMode;
        PixelFormat := TBitmap(Source).PixelFormat;
        FAlphaFormat := TBitmap(Source).AlphaFormat;
      end
      else
{$IF DEFINED(CLR)}
        NewImage(0, 0, DIB);
{$ELSE}
      begin
        FillChar(DIB, Sizeof(DIB), 0);
        NewImage(0, 0, DIB, False);
      end;
{$IFEND}
    finally
{$IF DEFINED(CLR)}
      System.Threading.Monitor.Exit(BitmapImageLock);
{$ELSE}
      LeaveCriticalSection(BitmapImageLock);
{$IFEND}
    end;
    PaletteModified := Palette <> 0;
    Changed(Self);
  end
  else
  begin
{$IF DEFINED(CLR)}
    if Source is System.Drawing.Bitmap then
    begin
      FreeContext;
      InternalLoadFromBitmap(System.Drawing.Bitmap(Source), NewHandle, NewPalette, DIB);
      NewImage(NewHandle, NewPalette, DIB, System.Drawing.Bitmap(Source).RawFormat);
      PaletteModified := Palette <> 0;
      Changed(Self);
    end
    else
{$IFEND}
      inherited Assign(Source);
  end;
end;

т.е. проверяют, возможно ли это вообще и копируют свойства и картинку из Source в Dest, по-разному в зависимости от того, чем является Source.

[nast9]

мне сказали что надо создать наследник TMenuItem (дочерний) и в нем перекрыть метод Assign() как это сделать ?

[Bargest]

Код:

type
 TMyMenuItem = class (TMenuItem)
 private
 protected
 public
  Procedure Assign(Sorce: TPresident); override;
 end;
...

[nast9]

а как реализовать для TMenuItem?