[Delphi] Knop 'Sluiten' (het kruisje) disabelen

[Tomatoman]

Een korte vraag: Hoe disable ik in Delphi de knop 'Sluiten' (het kruisje rechtsboven in de programmabalk)? Ik ben het ooit tegengekomen, maar ik heb geen idee meer waar dat was . Volgens mij was het een simpele API call.

Aanvullende vraag: vangt dit ook Alt+F4 af?

[Verwijderd]

Weet geen ene reet van Delphi, maar hier de Google oplossing:

http://www.planet-source-...sp?txtCodeId=128&lngWId=7

[justmental]

Deze vraag in combinatie met je sig wekt enige terughoudendheid in het beantwoorden bij mij op

Kun je het niet af met een zgn. 'modal' window?

[Tomatoman]

Thanks Keesje, die oplossing werkt. Hij vangt alleen F4 niet af. Ik zal CloseQuery overriden om hier wat aan te doen.

Deze vraag in combinatie met je sig wekt enige terughoudendheid in het beantwoorden bij mij op

Antwoord:

Kun je het niet af met een zgn. 'modal' window?

Het ís een modal window, maar ik vind het een beetje onlogisch dat je op Sluiten kunt drukken in een dialoog met bijvoorbeeld alleen de knoppen Yes en No. Sluiten betekent immers ModalResult = mrCancel en ik bewust geen Cancel button in mijn dialoog.

[Tom-my]

mja je kan hem ook weglaten toch? of da kruushke juist weer niet? aaffijn je moet niet gaan toornen aan de metaforen van windows, komt je programma niet tegen goede

[beany]

Event OnCloseQuery van het form

Die geeft een parameter CanClose mee. Zet die op False en je schermpie sluit niet, ook niet met een ALT-F4


edit: event van wat?

[ Voor 24% gewijzigd door beany op 02-02-2003 01:44 ]

[Tomatoman]

FanToom schreef op 02 February 2003 @ 01:03:
mja je kan hem ook weglaten toch? of da kruushke juist weer niet? aaffijn je moet niet gaan toornen aan de metaforen van windows, komt je programma niet tegen goede

Mee eens. De Windows-standaard is dat het kruisje alleen enabled is als er een Cancel button in een dialoogvenster is. Proberen? Test dan maar eens hoe Windows de volgende messagebox toont.

Delphi:

// geen cancel button, dus kruisje uitgeschakeld
Windows.MessageBox(0, 'Zomaar een bericht', 'Titel',
  MB_ICONINFORMATION or MB_YESNO or MB_SETFOREGROUND or MB_TASKMODAL);

// wel een cancel button, dus kruisje ingeschakeld
Windows.MessageBox(0, 'Zomaar een bericht', 'Titel',
  MB_ICONINFORMATION or MB_YESNOCANCEL or MB_SETFOREGROUND or MB_TASKMODAL);

[ Voor 5% gewijzigd door Tomatoman op 02-02-2003 17:36 ]

[Verwijderd]

Het kruisje weglaten doe je heel eenvoudig in de Object Inspector. Bij de property "BorderIcos" van het form moet je "biSystemMenu" op false zetten. Dit vangt alleen niet alt+F4 af.

[Tomatoman]

Daarmee kun je hem weglaten, maar niet uitschakelen. Geen nood, het is allemaal gelukt.

[OZ-Gump]

tomatoman, misschien is het prettig als je even aangeeft HOE het gelukt is, zodat eventuele zoekers straks niet bij een topic uitkomen waar alleen staat dat het 'allemaal gelukt' is.

[Verwijderd]

OZ-Gump schreef op 03 February 2003 @ 13:14:
tomatoman, misschien is het prettig als je even aangeeft HOE het gelukt is, zodat eventuele zoekers straks niet bij een topic uitkomen waar alleen staat dat het 'allemaal gelukt' is.

Zie de 2e post van de TS, daar staat in zekere zin hoe hij het heeft opgelost

[Tomatoman]

Lieve vriendjes en vriendinnetjes,^*

Na een lange dag in een groot, druk kantoor is tomatoman weer veilig thuis. Dat geeft hem de gelegenheid om het Geheim van het Uitgeschakelde Kruisje met jullie te delen. Hier is de oplossing.

Delphi:

type
  TMijnForm = class(TCustomForm)
  public
    function CloseQuery: Boolean; override;
    constructor CreateNew(AOwner: TComponent); override;
  end;

implementation

function TMijnForm.CloseQuery: Boolean;
begin
  if { kruisje disabled } then
    Result := ModalResult <> mrCancel
  else
    Result := inherited CloseQuery;
end;

constructor TMijnForm.CreateNew(AOwner: TComponent);
var
  SysMenuHandle: THandle;
begin
  inherited CreateNew(AOwner);
  if { kruisje disabled } then
  begin
    { disable the Close button in the title bar }
    SysMenuHandle := GetSystemMenu(Handle, False);
    if SysMenuHandle <> 0 then
      DeleteMenu(SysMenuHandle, SC_CLOSE, MF_BYCOMMAND);
  end;
end;

^{*) Liever vriendinnetjes}

[ Voor 10% gewijzigd door Tomatoman op 03-02-2003 22:44 ]