Maximierung eines Programms nur auf ein Teil beschränken

[xavior]

Achso! Da hab ich eigentlich garnichts!

Aber trozdem:

Code:

unit BE_SForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IBDatabase, DB, IBCustomDataSet, IBQuery, Buttons, ComCtrls,
  Grids, DBGrids, StdCtrls, ExtCtrls, Menus;

type
  TSForm = class(TForm)
    DBGrid: TDBGrid;
    Anim: TAnimate;
    DBDatabase: TIBDatabase;
    DBSource: TDataSource;
    DBQuery: TIBQuery;
    DBTransaction: TIBTransaction;
    TabSelec: TTabControl;
    MMenu: TMainMenu;
    Datei1: TMenuItem;
    Bearbeiten1: TMenuItem;
    Ansicht1: TMenuItem;
    Optionen1: TMenuItem;
    Hilfe1: TMenuItem;
    TopLine: TBevel;
    Selec: TComboBox;
    SField: TEdit;
    Stop: TSpeedButton;
    DB: TComboBox;
    SField_Name: TLabel;
    Search: TSpeedButton;
    Selec_Name: TLabel;
    DB_Name: TLabel;
    DBBrowse: TSpeedButton;
    NewSearch: TSpeedButton;
    Status: TStatusBar;
    procedure Search_start(Sender: TObject);
  private
   procedure WMSysCommand(var Message: TWMSysCommand); Message WM_SYSCOMMAND;
  public
    { Public-Deklarationen }
  end;

var
  SForm: TSForm;

implementation

{$R *.dfm}

procedure TSForm.Search_start(Sender: TObject);
var HK, HKKHK, KHK, HKK: String;
    Dummy: Real;
    ErrorCode: Integer;
begin

 HK := '''';              // Hochkommata (')
 HKKHK := HK + ',' + HK;  // Hochkommata + Komma + Hochkommata (',')
 KHK := ',' + HK;         // Komma + Hochkommata (,')
 HKK := HK + ',';         // Hochkommata + Komma (',)

 {If DB.ItemIndex = 0 then begin
  // !!!
 end;}

end;

procedure TSForm.WMSysCommand(var Message: TWMSysCommand);
begin
 If Message.CmdType = SC_MAXIMIZE then
  ShowMessage('Test 1')
 else
  ShowMessage('Test 2');
 inherited;
end;

end.