Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toms,
18. Dez 2003
Sheet.OnMouseUp := ShowPopupMenu(PageControlSQL,mbRight,,Mouse.CursorPos.X,Mouse.CursorPos.Y);
Nein, du musst das OnPageControlMouseUp dem PageControl zuweisen.
und zwar so:
private
procedure MyPageControlMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
{...}
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toms,
18. Dez 2003
Hi,
Das dürfte wie folgt gehen:
procedure TForm1.PageControl1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
TCM_GETITEMRECT = $130A;
var
i: Integer;