/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
OnMinimize?
Fra : Kasper Ekelund


Dato : 15-06-01 22:06

Hej

Jeg skal bruge overstående, men den er ikke i min inspector.
Har én en løsning?

--
Venlig Hilsen
Kasper Ekelund
-swinsystem
electriz@pobox.dk



 
 
Harald (15-06-2001)
Kommentar
Fra : Harald


Dato : 15-06-01 22:50

"Kasper Ekelund" <fjord1@mail.net4you.dk> skrev i en meddelelse
news:6KuW6.150$M%5.2123286546@news.euroconnect.net...
> Hej
>
> Jeg skal bruge overstående, men den er ikke i min inspector.
> Har én en løsning?

Du laver en procedure (procedure MyOnMinimize(Sender: TObject);) og f.eks. i
din OnCreate skriver du:

application.OnMinimize:=MyOnMinimize;

Mvh
HK




Kasper Ekelund (16-06-2001)
Kommentar
Fra : Kasper Ekelund


Dato : 16-06-01 09:38

Jeg får en "Unsatisfied forward or external declaration:
TForm.MyOnMinimized".

"Harald" <kroning@jyde.dk> skrev i en meddelelse
news:9gdvss$3g3$1@news.inet.tele.dk...
> "Kasper Ekelund" <fjord1@mail.net4you.dk> skrev i en meddelelse
> news:6KuW6.150$M%5.2123286546@news.euroconnect.net...
> > Hej
> >
> > Jeg skal bruge overstående, men den er ikke i min inspector.
> > Har én en løsning?
>
> Du laver en procedure (procedure MyOnMinimize(Sender: TObject);) og f.eks.
i
> din OnCreate skriver du:
>
> application.OnMinimize:=MyOnMinimize;
>
> Mvh
> HK
>
>
>



Jan (16-06-2001)
Kommentar
Fra : Jan


Dato : 16-06-01 15:08

In article <vUEW6.151$AQ.2400310286@news.euroconnect.net>,
fjord1@mail.net4you.dk says...
:Jeg får en "Unsatisfied forward or external declaration:
:TForm.MyOnMinimized".
:
:"Harald" <kroning@jyde.dk> skrev i en meddelelse
:news:9gdvss$3g3$1@news.inet.tele.dk...
:> "Kasper Ekelund" <fjord1@mail.net4you.dk> skrev i en meddelelse
:> news:6KuW6.150$M%5.2123286546@news.euroconnect.net...
:> > Hej
:> >
:> > Jeg skal bruge overstående, men den er ikke i min inspector.
:> > Har én en løsning?
:>
:> Du laver en procedure (procedure MyOnMinimize(Sender: TObject);) og f.eks.
:i
:> din OnCreate skriver du:
:>
:> application.OnMinimize:=MyOnMinimize;
:>
:> Mvh
:> HK
:>
:>
:>
Hmmm. er det Delphi 3 du sidder med?

Anyway, så kan du gøre det ved at opfange en system besked.
Gør følgende:

private
procedure WMSysCommand(var Msg: TWMSysCommand); message
WM_SYSCOMMAND;

....

procedure TfrmMain.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType = SC_MINIMIZE then
Gør et eller andet her...//Self.Hide;
DefaultHandler(Msg);
end;

/Jan

Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste