nejake nastavenia v Delphi

ravanelli

zdravicko,
xcel by som pre svoj program nastavit take veci ako:
-aby program nemal tlacidla na minimalizaciu, roziahnutie, vypnutie
-aby skompilovana aplikacia mala moju vlastnu ikonku namiesto tej klasickej...to som skusal nastavit v Form1.Icon ale zmenil som len ikonu na hornej liste kde je nazov programu
-pripadne este aby sa nedal vypnut pomocou ALT+F4
viete poradit?

pato83

1. V Object inspectore v nastaveniach formulara si pohladaj položku BorderIcons , klikni na plusko a tam už len hodnotami true alebo false povolíš alebo zakažeš ich vykonanie.
2. Na liste Project--Options--Application--Load icon a už len si vyhladaš tu svoju.

programator

ravanelli napísal:zdravicko,
...
-pripadne este aby sa nedal vypnut pomocou ALT+F4
...

Tento problem by sa mal dat vyriesit pridanim jedneho prikazu do udalosti onkeypress alebo onkeydown triedy form...
Riesenie :

Kód: Vybrať všetko

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = VK_F4 then key := 0;
end;

Ibaze aplikacia nebude reagovat na stlacenie F4. Ale inak je to hlupost...

Anti

ravanelli napísal: -pripadne este aby sa nedal vypnut pomocou ALT+F4

to sa da vyriesit uplne jednoducho

Kód: Vybrať všetko

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  showmessage('No!');
  abort;
end;

ravanelli

diky moc pani

programator napísal:...
Ibaze aplikacia nebude reagovat na stlacenie F4. Ale inak je to hlupost...

dovolil som si to trošku upraviť:

Kód: Vybrať všetko

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if AltDown and (key = VK_F4) then key := 0;
end;

function TForm1.AltDown : Boolean;
var
 State : TKeyboardState;
begin
 GetKeyboardState(State);
 Result := ((State[vk_Menu] and 128) <> 0);
end;

takto sa to ignoruje len ak je spolu s F4 stlačený aj ALT, inak sa nič nedeje a teda samotný kláves F4 môžeš použiť ako skratku na inú procedúru

//edit: ešte jedná vec; to čo písal pato že sa dajú vypnúť ikony v objectinspectore je fajn, no ono ti ich potom dá také nevysvietené. Ak chceš aby vyzerali normálne len sa kliknutie na ne ignorovalo, použi túto procedúru:

Kód: Vybrať všetko

procedure TForm1.WMSysCommand;
begin
  if (Msg.CmdType = SC_CLOSE) or
     (Msg.CmdType = SC_MINIMIZE) or
     (Msg.CmdType = SC_MAXIMIZE) then
   MessageBeep(0) else
  inherited;
end;

Tak sa mi zdá, že keď je typ okna Dialog, tak sa tam nedajú tlačítka pre minimalizovanie a maximalizovanie.

chrono napísal:Tak sa mi zdá, že keď je typ okna Dialog, tak sa tam nedajú tlačítka pre minimalizovanie a maximalizovanie.

no hej, ale celá vrchná lišta a krížik je také menšie. Ak chce štandartné win okno, tak mu to nepomôže.. A tiež možno tam chce tie tlačidla len aby neboli funkčné.. mal by viac napísať

ravanelli

xcel som to tak ako napisal pato... aby tam tie tlacidla vobec neboli..pripadne ani ta lista (ale to len zo zvedavosti

)
a s tym altdownom to je lepsie lebo ako si pisal F4 pouzivam ako skratku pre proceduru

programator

ravanelli napísal:xcel som to tak ako napisal pato... aby tam tie tlacidla vobec neboli..pripadne ani ta lista (ale to len zo zvedavosti )
a s tym altdownom to je lepsie lebo ako si pisal F4 pouzivam ako skratku pre proceduru

Pre odstranenie vrchnej listy musis v object inspector-e formulara nastavit BorderStyle na bsNone...Ibaze musis tu aplikaciu zatvarat inak.(napr. nejake tlacitko a pod)

ravanelli

jasne

na to mam Exit v menu

nejake nastavenia v Delphi

nejake nastavenia v Delphi

Re: nejake nastavenia v Delphi

Re: nejake nastavenia v Delphi

Re: nejake nastavenia v Delphi