| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Координаты объекта [D2005, XP]

jacksotnik ©   (2012-02-06 18:40:00) 

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

---

oldman   (2012-02-07 12:16:00) [1]

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


при OnClick?

---

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

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

---

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

Спасибо всем

---

Ega23   (2012-02-06 19:06:00) [4]

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.


---

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

ClientToParent

---

Dimka Maslov   (2012-02-06 18:59:00) [6]

ClientToScreen/ScreenToClient

---

Наверх