Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

Координаты объекта   Найти похожие ветки 

 
jacksotnik   (2012-02-06 18:40) [0]

Всем привет. Есть панелька на ней еще одна и на на ней лежит лейбла. Так вот подскажите как определить координаты этой лейблы относительно мейн формы? Надо это мне для того чтоб показывать popup menu при нажатии на эту лейблу


 
Dimka Maslov ©   (2012-02-06 18:59) [1]

ClientToScreen/ScreenToClient


 
Германн ©   (2012-02-06 19:00) [2]

ClientToParent


 
Ega23 ©   (2012-02-06 19:06) [3]

unit Unit14;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, Menus, StdCtrls;

type
 TForm14 = class(TForm)
   Label1: TLabel;
   PopupMenu1: TPopupMenu;
   werwerew1: TMenuItem;
   procedure Label1ContextPopup(Sender: TObject; MousePos: TPoint;
     var Handled: Boolean);
   procedure werwerew1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form14: TForm14;

implementation

{$R *.dfm}

procedure TForm14.Label1ContextPopup(Sender: TObject; MousePos: TPoint;
 var Handled: Boolean);
var
 pt: TPoint;
begin
 GetCursorPos(pt);
 PopupMenu1.Popup(pt.X, pt.Y);
 Handled := True;
end;

procedure TForm14.werwerew1Click(Sender: TObject);
begin
 Beep;
end;

end.


 
jacksotnik   (2012-02-07 11:49) [4]

Спасибо всем


 
Омлет ©   (2012-02-07 11:53) [5]

procedure TForm1.Label1Click(Sender: TObject);
begin
 with Label1, ClientToScreen(Point(0, Height)) do
   pm1.Popup(x, y);
end;


 
oldman ©   (2012-02-07 12:16) [6]


> Надо это мне для того чтоб показывать popup menu при нажатии
> на эту лейблу


при OnClick?



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.053 c
15-1331116336
Leon-Z
2012-03-07 14:32
2013.03.22
Установить прогу на сервер.


3-1284466515
beginer
2010-09-14 16:15
2013.03.22
ibserver выгрузить bat-ником


4-1259681083
kanibal
2009-12-01 18:24
2013.03.22
Как программно определить какие библиотеки использует приложение?


15-1328778240
Baks
2012-02-09 13:04
2013.03.22
Как и где правильно хранить настройки и изменяемые файлы программ


4-1255976428
minomorf
2009-10-19 22:20
2013.03.22
Как добавлять/удалять вкладки в SysTabControl32?