Maximierung eines Programms nur auf ein Teil beschränken

[SirThornberry]

könnte nen fehler sein der selten mal auftritt wenn man den windowstate bissl hinn und her geändert hat über den Objectinspektor. mach mal nen rechtsklick auf dein programm in der Taskleiste und schau nach ab es da den unterpunkt "Wiederherstellen" gibt (in nicht maximiertem zustand)

[neolithos]

Zeig mal bitte was du bis jetzt Fenstertechnisch geschrieben hast!

Ins blaue raten mag ich nicht!

[xavior]

Hier:

[neolithos]

Ich meinte mehr den Quelltext!

[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.

[neolithos]

Zitat von xavior:

Code:

procedure TSForm.WMSysCommand(var Message: TWMSysCommand);
begin
 If Message.CmdType = SC_MAXIMIZE then
  ShowMessage('Test 1')
 else
  ShowMessage('Test 2'); // hier störts du wahrscheinlich den Windows ablauf -> verschieben
 inherited;
end;

Delphi-Quellcode:

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

[xavior]

ohhh, hihihi das ist ja echt schlecht das ändere ich mal ganz schnell!

[neolithos]

Hier mal ein Bsp

[xavior]

Danke! Ja hab ich!

1. Frage:

Code:

if CheckBox1.Checked and ((Message.CmdType = SC_MAXIMIZE) or (Message.CmdType = SC_MAXIMIZE + 2)) then

Wieso die "

Code:

+2

" hier

Code:

Message.CmdType = SC_MAXIMIZE + 2

?

2. Frage:

Code:

 If (Message.CmdType = SC_MAXIMIZE) and (SForm.Align = alCustom) then begin
  SForm.Align := alTop;
 end else begin
  inherited;
 end;
 If (Message.CmdType = SC_MAXIMIZE) and (SForm.Align = alTop) then begin
  SForm.Align := alCustom;
 end else begin
  inherited;
 end;

Was mach ich hier falsch? Bei 1. mal wir das Fenster bei maximieren nach oben verschoben (so wie es haben wollte! Außer das bei maximieren jetzt nicht mehr beim maximieren, im maximierten Zustand die 2 Doppeöfenster angezeigt werden!). Beim 2. mal passiert garnichts!

[neolithos]

+2: stellt die Botschaft dar, falls Doppelt auf die Titelleiste geklickt wird.