Как я добавляю TLabel к строке меню в Delphi?
Вы могли всегда убеждать клиент иметь сессию пользователей просто постоянно регистрация ругательств и делать легкое решение добавить их к системе. Это - большая работа, но это, вероятно, будет более представительным для сообщества.
2 ответа
Вы уверены, что это ярлык?
Я не использовал программу, но это мог быть просто пункт меню, установленный на «рисование владельцем» и нарисованный так, чтобы он выглядел как ссылка?
http://sirmonkeys.com/images/updatelink.png
(сделано в Delphi 7)
procedure TForm1.MYITem1DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
begin
acanvas.Font.Style := [fsUnderline,fsbold];
acanvas.Font.color := clblue;
acanvas.Brush.Style := bsClear;
acanvas.TextOut(arect.left+1,arect.top+1,'Link to Update...');
end;
procedure TForm1.MYITem1MeasureItem(Sender: TObject; ACanvas: TCanvas;
var Width, Height: Integer);
begin
width := 100;
end;
, а затем либо иметь ImageList , назначенный MainMenu1.Images
или установите MainMenu1.OwnerDraw на true .
Реализация Beyond Compare фактически является TLabel. Мы используем Toolbar 2000 для наших меню и панелей инструментов, поэтому встраивание элемента управления в меню напрямую поддерживается (с правильным фоном), и оно имеет то преимущество, что поддерживает элементы меню с выравниванием по правому краю.