Pohyb oknem – Delphi – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Pohyb oknem – Delphi – Fórum – Programujte.comPohyb oknem – Delphi – Fórum – Programujte.com

 

Toto vlákno bylo označeno za vyřešené — příspěvek s řešením.
Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
dyžon0
Stálý člen
14. 7. 2012   #1
-
0
-

sehnal jsem si proceduru na pohyb oknem, kdyz chcete nastavit BorderStyle na BsNone.
problem je v tom, ze funguje jen kdyz pretahujete uchopenim kdekoliv na formulari.

Kdyz ale pres celej formular roztahnu panel, tak uz pretahovani nefunguje.

Najde se nekdo ,kdo by ji dokazal pozmenit,aby bylo mozno uchopit i kdekoliv na panelu a premistit ??

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;
if  M.Result = htClient then M.Result := htCaption;
end;

procedure TForm1.WMNCPaint(var Msg:TWMNCPaint);
var
dc: hDc;
Pen: hPen;
OldPen: hPen;
OldBrush: hBrush;

begin
inherited;
dc := GetWindowDC(handle);
Msg.Result := 1;
Pen := CreatePen(PS_SOLID, 3, RGB (0,0,0));
OldPen := SelectObject(dc, Pen);
OldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH));
Rectangle(dc, 0, 0, Form1.Width, Form1.Height);
SelectObject(dc, OldBrush);
SelectObject(dc, OldPen);
DeleteObject(Pen);
ReleaseDC(Handle, Canvas.Handle);
end;

Nahlásit jako SPAM
IP: 89.102.38.–
Reklama
Reklama
Řešení
liborb
~ Redaktor
+18
Guru
16. 7. 2012   #2
-
0
-
Vyřešeno Nejlepší odpověď

Řádek: 

if  M.Result = htClient then M.Result := htCaption;

říká, že celá klientská oblast se má, co se týká práce s kurzorem, chovat jako Caption (titulek okna). Takže pak lze pohybovat s oknem "uchopením" kdekoliv v klientské části. Pokud tu klientskou část překryješ panelem, tak tyto zprávy zpracovává ten panel, takže v něm musíš zpracování upravit taky.

Nahlásit jako SPAM
IP: 78.80.52.–
dyžon0
Stálý člen
16. 7. 2012   #3
-
0
-

rozumim, je to logicky, diky, ale jakou vlastnost toho panelu mam upravit prave nevim  ... ??

Nahlásit jako SPAM
IP: 89.102.38.–
Sniper
~ Anonymní uživatel
184 příspěvků
16. 7. 2012   #4
-
+1
-
Zajímavé
Nahlásit jako SPAM
IP: 90.179.201.–
dyžon0
Stálý člen
17. 7. 2012   #5
-
0
-

jasny, nezlob se, jsem zkusenej hledac, ale vcera jsem spechal a mel jsem cas jen na 2 odpovedi ..

Kazdopadne dekuju moc ...

Nahlásit jako SPAM
IP: 90.176.204.–
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 11 hostů

Podobná vlákna

Myš nad oknem — založil LJ1024

Pohyb v tkinterovi — založil myky

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý