Keresés: - Delphi kérdések - Mobilarena Hozzászólások

Legfrissebb anyagok

Mobilarena témák

PROHARDVER! témák

IT café témák

GAMEPOD témák

LOGOUT témák

Keresés

Aktív témák

#34 Edem senior tag KovacsUr #33

2003-08-05 15:03:06 #34
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Edem

senior tag

válasz KovacsUr #33 üzenetére

Hűűűha! Ekkora égést akkor láttam utoljára, amikor apám nyitott ablakkal állt be az autómosóba. :D
#32 Edem senior tag KovacsUr #31

2003-08-05 14:48:28 #32
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Edem

senior tag

válasz KovacsUr #31 üzenetére

A www.windows.hu már megszűnt, nem tudtad? :) :P
#30 Edem senior tag KovacsUr #28

2003-08-05 14:44:33 #30
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Edem

senior tag

válasz KovacsUr #28 üzenetére

Tudsz esetleg valami jó helyet, ahol ezek a message-ek össze vannak szedve?
#29 Edem senior tag KovacsUr #28

2003-08-05 14:38:50 #29
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Edem

senior tag

válasz KovacsUr #28 üzenetére

off
MODERÁTOR? Gartula! :)
on

OK, köszönöm, megvan. Bár csúnya módon kikopiztam egy másik forrásból (kicsit gagyi, mert pl. a 20 nem mint konstans szerepel, de ezt már bárki megcsinálja).
type
TForm1 = class(TForm)
private
procedure WMWindowPosChanging(var Msg : TWMWindowPosChanging); message WM_WINDOWPOSCHANGING;
end;

procedure TForm1.WMWindowPosChanging(var Msg : TWMWindowPosChanging);
var
Desktop : TRect;
begin
Inherited;

if SystemParametersInfo(SPI_GETWORKAREA, 0, @Desktop, 0) <> True then
begin
Desktop.Left := 0;
Desktop.Top := 0;
Desktop.Right := GetSystemMetrics(SM_CXSCREEN);
Desktop.Bottom := GetSystemMetrics(SM_CYSCREEN);
end;

if (Msg.WindowPos.x >= Desktop.Left - 20) and
(Msg.WindowPos.x <= Desktop.Left + 20) then
begin
Msg.WindowPos.x := Desktop.Left;
end;

if (Msg.WindowPos.x + Width >= Desktop.Right - 20) and
(Msg.WindowPos.x + Width <= Desktop.Right + 20) then
begin
Msg.WindowPos.x := Desktop.Right - Width;
end;

if (Msg.WindowPos.y >= Desktop.Top - 20) and
(Msg.WindowPos.y <= Desktop.Top + 20) then
begin
Msg.WindowPos.y := Desktop.Top;
end;

if (Msg.WindowPos.y + Height >= Desktop.Bottom - 20) and
(Msg.WindowPos.y + Height <= Desktop.Bottom + 20) then
begin
Msg.WindowPos.y := Desktop.Bottom - Height;
end;
end;
#27 Edem senior tag

2003-08-05 13:56:14 #27
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Edem

senior tag

Hali,

Hogyan kell képernyőszéléhez tapadó ablakot csinálni? Olyat, mint a winamp is.

Thx
#23 Edem senior tag Alan #21

2003-08-02 11:18:01 #23
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Edem

senior tag

válasz Alan #21 üzenetére

Oda teszed, ahova akarod. :t

Csak vicceltem. :P
#17 Edem senior tag Edem #3

2003-08-02 10:20:48 #17
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Edem

senior tag

válasz Edem #3 üzenetére

Hali,

Akkor álljon itt a megoldás:

1. Stop Delphi
2. Run Regedit

My Computer / HKEY_USERS /
/ S-1-5-21-1111581266-668016370-827027905-1000 /
/ Software /
/ Borland /
/ Delphi /
/ 6.0 /
/ Editor /
/ Options /

Itt hozzál létre egy új String Value-t. (Name:=NoCtrlAltKeys, Value:=1)

3. Start Delphi
4. Tools / Editor Options... / General / Editor SpeedSetting := Default;
5. OK, és már kész is. :)

Edem
#16 Edem senior tag Totem #15

2003-08-01 12:25:24 #16
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Edem

senior tag

válasz Totem #15 üzenetére

Ksözi! :)

Szólok Parci-nak, hogy te nyerd meg az Abit versenyt! De psszt! :)
#14 Edem senior tag TheVeryGuest #13

2003-07-28 23:10:14 #14
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Edem

senior tag

válasz TheVeryGuest #13 üzenetére

Most úgy néz ki, hogy nincs más megoldás, át kell állítani.
#12 Edem senior tag rog #11

2003-07-28 16:32:40 #12
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Edem

senior tag

válasz rog #11 üzenetére

:DDD
#10 Edem senior tag rog #9

2003-07-28 16:29:32 #10
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Edem

senior tag

válasz rog #9 üzenetére

Valóban, de nekem az a gondom, hogy ilyenkor nem működik az pl az AltGr-F, így nem tudok kapcsos zárójelet ''['' írni, az AltGr-B ''{'' helyett pedig a BreakPoint List jön fel.
#8 Edem senior tag rog #5

2003-07-28 16:23:17 #8
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Edem

senior tag

válasz rog #5 üzenetére

A Ctlr-insert megy, ha úgy állítom be a keymapping-ot. Viszont én azt szeretném, ha egyszerre működne a Ctrl-CVX és a speciális karakterek ( [], {} ).
#4 Edem senior tag

2003-07-28 16:11:15 #4
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Edem

senior tag

Ez a topik azért nagyon jó, mert senki sem olvassa. Lehetne belőle Secret Off Topic, amibe úgy offolhatnánk, hogy közben nem tűnne fel senkinek sem.

De ez valszín érdeklődés (és persze az olvasottság) hiánya miatt elmarad. :)
#3 Edem senior tag

2003-07-28 15:56:18 #3
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Edem

senior tag

Hali,

Hogyan állítsam be a Delphi 6-ot, hogy működjön a Ctrl-C, Ctrl-V, Ctrl-X, és emellett a speciális karaktereket ( ][, }{ ) is lehessen használni?

Edem