habe einfach mal verschiedene Tab-Sheets angelegt. Im Form funktionierten diese einwadfrei aber die ausführbare exe-Datei startet und schließt sofort wieder, hier sollte doch eigentlich das Tab-Sheet Menü kommen. Mache ich hier einen Bedienungsfehler. Anbei der Quellcode
Code: Alles auswählen
unit Test;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, types;
type
{ TForm1 }
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
TabSheet7: TTabSheet;
TabSheet8: TTabSheet;
procedure PageControl1Change(Sender: TObject);
procedure TabSheet1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.PageControl1Change(Sender: TObject);
begin
end;
procedure TForm1.TabSheet1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
end;
end.
McReier