No hay respuestas en este tema

[Desart]

Hola compañeros, estoy intentando pasar mi último elemento del menú a la derecha y no lo logro, he seguido el código de las siguientes página y no lo logro

http://neftali.clubdelphi.com/?p=50

De hecho de esta hice pruebas  y funcionaba, coloco el procedure y en el oncreate coloco

delphi

MenuItemAtRight(Self.MainMenu1,Windows.GetMenuItemCount(Self.MainMenu1.Handle)-1);

y nada.

de las siguientes páginas he probado con

http://www.scalabium...faq/dct0060.htm

Con los dos metidos propuestos y antes de esta con  e el que hay en about en

http://delphi.about....htalignmenu.htm

y no logro que funcione, tengo que hacer algo más?

Estoy en Windows 7 a 64 b. con delphi 2010 y en mi form actualmente esta el evento Show, el Oncreate la selección del item para salir (es una barra de herramientas) el último item tiene el Caption R y es el iemmenu Reloj1 y aparte de est el Tmainmenu es Menu y hay un timer con interval 100 y  con el siguiente código

delphi

procedure TFmenu.Timer1Timer(Sender: TObject);
begin
   Menu.Items[5].Caption:='Día: '+DateToStr(now)+ ' Hora: [ '+TimeToStr(Now)+' ]';
end;

Si podéis echarme una mano se agradecería.