- LG LCD és LED TV-k
- Übergyors Samsungnak próbál látszani egy hamisított NVMe SSD
- Milyen belső merevlemezt vegyek?
- Fejhallgató erősítő és DAC topik
- OLED TV topic
- Milyen CPU léghűtést vegyek?
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Igencsak szerény méretekkel rendelkezik az Aetina Xe HPG architektúrás VGA-ja
- 3D nyomtatás
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
Hirdetés
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
-
Ülésezik a hardveregylet
ph Az irodai készülékek és monitorok társaságát egy ház, egy egér és egy DAC egészíti ki.
-
VR játék lesz az Alien: Rogue Incursion
gp Az év végén érkező program PC-re, Meta Quest 3-ra és PlayStation VR2-re érkezik a tervek szerint.
Új hozzászólás Aktív témák
-
_AnTi_
tag
Üdv mindenkinek!
Engedelmetekkel használnám én is ezt a topicot...
A következő lenne a kérdésem:
Hogyan tudok egy ProgressBar komponenst beletenni egy valamilyen listakezelőbe (StringGrid/ListView/ListBox vagy valami hasonló)?
Előre is köszönöm!Szép vagyok és okos, ügyes és aranyos...
-
_AnTi_
tag
Szia! Ezt egy ezer éves progimból szedtem ki, remélem segít (a billentyű nyomkodásra egy példa)!
Private/public részben deklaráld mondjuk ezt:
procedure gomb(var msg: tmsg; var handled: boolean);
procedure TForm1.gomb(var msg: tmsg; var handled: boolean);
var
keybstate: Tkeyboardstate;
begin
case msg.message of
WM_KEYFIRST..WM_KEYLAST:
begin
getkeyboardstate(keybstate);
if (keybstate[VK_LEFT] and 128)=128 then
balra;
handled:=true;
end;
end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
application.OnMessage:=gomb;
end;
A billentyűkonstansokat megtalálod a helpben, ha rákeresel mondjuk a VK_LEFT-re! Így elvileg ha aktív a progid, akkor bármely billentyűt le tudod kezelni (ha van rá konstans). Természetesen, ha nagy hülyeséget írtam javítsatok ki!
Bye!Szép vagyok és okos, ügyes és aranyos...
-
_AnTi_
tag
Nézd meg ezt, hátha segít!
Bővebben: link
Bár azt hiszem, hogy a becsomagolós része fizetős...
[Szerkesztve]Szép vagyok és okos, ügyes és aranyos...
-
_AnTi_
tag
A Pos függvény az első találatig keres, és a keresendő karakter szövegben található pozícióját adja vissza. Kicsit zavaros lett ez a mondat...
Tehát:
Ha Te 'r' betűt keresel és 13-at kapsz vissza, akkor az azt jelenti, hogy az első 'r' a 13-ik helyen található az általad vizsgált szövegben. Mellesleg a Pos case sensitive, tehát az 'r' és az 'R' különböző karakterek!
Szerintem egyszerűbb lenne egy ciklussal megvizsgálnod a szöveget!Szép vagyok és okos, ügyes és aranyos...
-
-
_AnTi_
tag
Valószínűleg egy kis tökéletesítésre szorul, de ezen el tudsz indulni. Egy edit mezőben van a futtatandó program elérési útja és neve.
implementation
uses shellAPI;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
startupinfo : Tstartupinfo;
processinfo : Tprocessinformation;
command : array [0..512] of Char;
success : boolean;
begin
strpcopy(command, edit1.text);
fillchar(startupinfo, sizeof(startupinfo), #0);
startupInfo.wShowWindow:=SW_SHOWNORMAL;
startupinfo.cb:=sizeof(startupinfo);
startupinfo.dwFlags:=STARTF_USESHOWWINDOW;
Success:=CreateProcess(nil, command, nil, nil, false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
nil, nil, Startupinfo, Processinfo);
{ if success then
label2.Caption:='Minden ok!'
else
label2.Caption:='Valami nem jó!';}
end;
Sok Sikert!Szép vagyok és okos, ügyes és aranyos...
-
_AnTi_
tag
válasz Drótszamár #879 üzenetére
Valóban! Ha FileMode:=0-val nyitom meg (csak olvasás ), akkor királyságos lesz! Ezer hála, hogy felhívtad rá a figyelmet!
Szép vagyok és okos, ügyes és aranyos...
-
_AnTi_
tag
Hali!
Quickreporttal próbálkozom (most használom először), és a következő a problémám:
nyomtatnom kellene egy listát, ahol minden egyes tételnek további paraméterei vannak (úgy, mint ahogy egy számla is kinéz, tehát pl.: terméknév - gyáriszám - ár, stb.). A gondom az, hogy nem tudom hogyan kérhetnék új oldalt, illetve a fejlécet és a láblécet szeretném ''átvinni'' a következő oldalra is.
A válaszokat előre is köszönöm!Szép vagyok és okos, ügyes és aranyos...
-
_AnTi_
tag
Szia!
Egy edit mező láthatóságát a visible tulajdonságával tudod állítani (pl.: edit1.visible:=false - az edit mező nem látható). A tartalmát a text tulajdonságából kapod meg, tehát valtozo:=edit1.text. Az edit mezőnek van egy onkeypress eseménye, a key=#13 az entert jelenti.
Nemtom ilyenekre volt-e szükséged ehhez a részhez, ha nem, akkor bocsi!
A BitBtn nálam műxik...
[Szerkesztve]Szép vagyok és okos, ügyes és aranyos...
-
_AnTi_
tag
Ez általában olyankor fordul elő, ha a demo által használt komponens nem egyezik az általad használt komponenssel, vagy akkor, ha nem ahhoz a delphihez készült demo-t töltötted le, amivel rendelkezel.
Mod: én úgy látom, hogy ez újabb delphikhez készült, mint a 7...
[ Szerkesztve ]
Szép vagyok és okos, ügyes és aranyos...
-
_AnTi_
tag
Szia!
Mindkét komponensnél a font.size-al tudod módosítani a betűméretet. Pl.:
memo1.font.size:=12;
Az egyetlen gond ezzel a két komponenssel, hogy ha változtatod a betűméretet, akkor az összes benne lévő szöveg mérete módosul.
Nézz körül a richedit környékén, ha kicsit többre vágysz!
Szép vagyok és okos, ügyes és aranyos...
-
_AnTi_
tag
Sziasztok!
Gergosz2: a turbo delphi bármely verziója megy tudomáson szerint vista/win7 64-en, illetve azt hiszem a 2006-os delphitől kezdve minden változat megy. Turbo Delphi bizonyos verziója ingyenes, a többiből lehet trial-t letölteni itt érdemes keresgélni.
LeoZso: ezt olvasd át
S-eye: ahogyan Gyuri16 is már írta neked a delphi az egy szoftverfejlesztő környezet. Ezzel nem tudsz nyákot rajzolni, "csak" egy olyan programot írni, amit később erre lehet használni, ami nem olyan egyszerű és ha mindenképpen delphiben kell megoldanod meg kell hozzá tanulnod delphiben programozni. Vannak erre célszoftverek.
Remélem még segíthettem valakinek, mert látom elég régi dolgokra írtam.
Szép vagyok és okos, ügyes és aranyos...