Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Компоненты и классы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #5  
Старый 15.09.2018, 05:30
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,111
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Сорри, забыл как оно там. Вот так работает:
Код:
type
  TForm1 = class(TForm)
    lbClickMe: TLabel;
    pmClickMe: TPopupMenu;
    miClickMe1: TMenuItem;
    miClickMe2: TMenuItem;
    miClickMe3: TMenuItem;
    edEdit: TEdit;
    procedure lbClickMeClick(Sender: TObject);
    procedure pmClickMeClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.lbClickMeClick(Sender: TObject);
var
  p : TPoint;
begin
  p.X := (Sender As TLabel).Left;
  p.Y := (Sender As TLabel).Top + (Sender As TLabel).Height + 2;
  p := ClientToScreen(p);
  pmClickMe.Tag := Integer(Sender);
  pmClickMe.Popup(p.X,p.Y);
end;

procedure TForm1.pmClickMeClick(Sender: TObject);
var
  lb : TLabel;
begin
  lb := TLabel(pmClickMe.Tag);
  lb.Caption := (Sender As TMenuItem).Caption;
end;

pmClickMeClick назначен всем пунктам меню.

По поводу TEdit.
Надо поставить такие свойства в соотв. значения:
Код:
BorderStyle := bsNone;
BevelInner := bvNone;
BevelOuter := bvNone;
Color := clBtnFace;
Ответить с цитированием
Этот пользователь сказал Спасибо lmikle за это полезное сообщение:
Guaho (15.09.2018)
 


Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:11.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025