Firemonkey, Create -> App Freeze

[Jonas Shinaniganz]

Ich finde nicht herraus warum er in der TContextMenue.Create(Self) Zeile einfach stehen bleibt. Habe Stunden damit zugebracht...

Delphi-Quellcode:

type
  TContextMenue = class(TForm)

var
  ConMenue : TContextMenue;

begin  
  ConMenue := TContextMenue.Create(Self);

[newmusicslamer]

Was kommt denn danach?

[Jonas Shinaniganz]

Delphi-Quellcode:

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;

Aber er bleibt in der ersten Zeile Stehen... auch wenn der Rest ausgeklammert ist.

Das Create ist nicht überschrieben. (Also noch das von TForm) Hab statt mainform auch Self / Nil versucht...

[himitsu]

Firemonkey?

Ich hoffe mal TForm ist nicht das der "alten" VCL.

[Jonas Shinaniganz]

Denke nein, habe HD Formular ausgewählt, hier die ganze Form:

Delphi-Quellcode:

unit ButtonMenu;


interface


uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, BarButton, Winapi.ShellAPI;


type
  TContextMenue = class(TForm)
    procedure btnSetCaptionClick(Sender : TObject);
    procedure btnSetShortCutClick(Sender : TObject);
  public
    FBB : TBarButton;
  end;


var
  ContextMenue :  TContextMenue;

implementation


{$R *.fmx}


procedure TContextMenue.btnSetCaptionClick(Sender : TObject);
var
  S : String;
begin
  if InputQuery('New button name.', 'Enter a new name.', S) then
  begin
    FBB.Text := S;
  end;
end;


procedure TContextMenue.btnSetShortCutClick(Sender : TObject);
var
  openDlg : TOpenDialog;
begin
  openDlg := TOpenDialog.Create(self);

  if (openDlg.Execute) then
  begin
    ShowMessage('File : ' + openDlg.FileName);
    FBB.Shortcut := openDlg.FileName;
    FBB.Text := ExtractFileName(OpenDlg.FileName);
  end
  else
  begin
    ShowMessage('Assigning file was cancelled');
  end;

  openDlg.Free;
end;


end.

[Jonas Shinaniganz]

Das Event ruft die Form auf: (bzw eine erstellt eine Instanz davon)

Delphi-Quellcode:

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
    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;
  end;
end;