Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
ВнизКоординаты объекта Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.062 c