Цитата:
Сообщение от lmikle
Код:
procedure TForm1.Label1Click(Sender : TObject);
var
p : TPoint;
begin
p.Top := (Sender As TLabel).Top + (Sender As TLabel).Height;
p.Left := (Sender As TLabel).Left;
p := ClienttoScreen(p);
PopupMenu1.Popup(p);
end;
|
Ругается.
Мож чего надо ещё добавить?
Цитата:
[Error] Unit1.pas(127): Undeclared identifier: 'Top'
[Error] Unit1.pas(128): Undeclared identifier: 'Left'
[Error] Unit1.pas(130): Incompatible types: 'Integer' and 'TPoint'
|