Hirdetés
- Milyen TV-t vegyek?
- Azonnali VGA-s kérdések órája
- Fejhallgató erősítő és DAC topik
- Dell notebook topic
- Hővezető paszták
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Vezetékes FÜLhallgatók
- Vezeték nélküli fülhallgatók
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Milyen asztali médialejátszót?
Aktív témák
-
Edem
senior tag
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; -
Edem
senior tag
Hali,
Hogyan kell képernyőszéléhez tapadó ablakot csinálni? Olyat, mint a winamp is.
Thx -
Edem
senior tag
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 -
Edem
senior tag
válasz
TheVeryGuest
#13
üzenetére
Most úgy néz ki, hogy nincs más megoldás, át kell állítani.
-
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. :) -
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
Aktív témák
- GYÖNYÖRŰ iPhone 13 mini 128GB Starlight -1 ÉV GARANCIA -Kártyafüggetlen, MS3610
- Lenovo ThinkPad dokkolók: USB-C 40A9/ 40AY/ 40AS/ Thunderbolt 3 40AC/ Hybrid USB-C DisplayLink 40AF
- AKCIÓ! DELL PowerEdge R630 rack szerver - 2xE5-2680v4 (28c/56t, 2.4/3.3GHz), 128GB RAM, 1G, áfás
- ÁRGARANCIA! Épített KomPhone i5 10400F 16/32GB/64GB RAM RTX 5050 8GB GAMER PC termékbeszámítással
- REFURBISHED - Lenovo ThinkPad 40A9 USB-C Dock (ELKELTEK) - CSAK RENDELÉSRE
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest


