Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Jonas Shinaniganz,
10. Mär 2012
Das Event ruft die Form auf: (bzw eine erstellt eine Instanz davon)
procedure TMainForm.MClick(Sender : TObject; Button : TMouseButton; Shift : TShiftState; X, Y : Single);
var
ConMenue : TContextMenue;
begin
if (Sender is TBarButton) then
begin
if (ssRight in Shift) then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Jonas Shinaniganz,
10. Mär 2012
begin
ConMenue := TContextMenue.Create(MainForm);
ConMenue.Top := Trunc(Platform.GetMousePos.Y);
ConMenue.Left := Trunc(Platform.GetMousePos.X);
ConMenue.FBB := TBarButton(Sender);
ConMenue.ShowModal;
ConMenue.Free;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Jonas Shinaniganz,
10. Mär 2012
Ich finde nicht herraus warum er in der TContextMenue.Create(Self) Zeile einfach stehen bleibt. Habe Stunden damit zugebracht...
type
TContextMenue = class(TForm)
var
ConMenue : TContextMenue;
begin