Keresés: - Delphi programozás - 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

Új hozzászólás Aktív témák

#1438 bukica csendes tag

Új Válasz 2007-01-15 21:06:30 #1438
Új hozzászólás
Ö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

bukica

csendes tag

Azt meg lehet oldani, hogy a StatusBar felosztott részeit különböző színűekre állítsam, vagy használjak valamilyen más megoldást?
#1437 bukica csendes tag ViragL #1436

Új Válasz 2007-01-15 21:03:20 #1437
Új hozzászólás
Ö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

bukica

csendes tag

válasz ViragL #1436 üzenetére

Csak annyi lenne a lényege, hogy egy üzenetet kiírva a képernyőre az adott feladat végrehajtása olyan gyors, hogy nem látszik az üzenet. Ezért kell a kis szünet, hogy el lehessen olvasni a kiírt üzenetet.
#1434 bukica csendes tag ViragL #1422

Új Válasz 2007-01-15 19:15:18 #1434
Új hozzászólás
Ö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

bukica

csendes tag

válasz ViragL #1422 üzenetére

Akkor a sleep-et kihagyom. Találtam, a Torry's Delphi-n egy 'procedure Delay(Milliseconds: Integer);'-t, azt használom helyette.
#1421 bukica csendes tag bukica #1420

Új Válasz 2007-01-13 17:57:32 #1421
Új hozzászólás
Ö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

bukica

csendes tag

válasz bukica #1420 üzenetére

Megtaláltam.
Sleep(milliseconds: Cardinal);
#1420 bukica csendes tag

Új Válasz 2007-01-13 17:22:28 #1420
Új hozzászólás
Ö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

bukica

csendes tag

Hogyan lehet a progam futását pl. 2 másodpercre várakoztatni (2 mp szünet)?
#1419 bukica csendes tag btotyi #1417

Új Válasz 2007-01-13 16:44:29 #1419
Új hozzászólás
Ö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

bukica

csendes tag

válasz btotyi #1417 üzenetére

Köszi!
Úgy néz ki sikerült, csak még azt nem tudtam elérni, hogy a SimleText
méretének megfelelően középre kerüljön a Statusbar ablak.
#1416 bukica csendes tag

Új Válasz 2007-01-13 13:57:22 #1416
Új hozzászólás
Ö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

bukica

csendes tag

Egy másik problémám, hogy lehet egy 'státusz' sort kitenni egy form-ra, hogy azon programfutás közben különböző dolgokat ki tudjak írni (rekord számláláló,üzenetek stb.), és ezek azonnal meg is jelenjenek, nem csak akkor mikor az adott feladat lefutott?
Nem tudom elég érthetően fogalmaztam-e? Pl. egy indexelés előtt ki akarom írni, hogy 'Türelem indexelés', majd mikor az indexelés lefutott, eltüntetni az üzenetet?
#1415 bukica csendes tag btotyi #1412

Új Válasz 2007-01-13 13:43:49 #1415
Új hozzászólás
Ö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

bukica

csendes tag

válasz btotyi #1412 üzenetére

Köszi!
A megoldás a SelStart volt, igaz egy kicsit bonyolultabban.

poz:=edit1.selstart;
if poz=0 then
edit1.Text := #216+edit1.Text
else
edit1.Text := copy(edit1.Text,1,poz) + #216 + copy(edit1.Text,poz+1,length(edit1.text)-poz);
edit1.SelStart:=poz+1;
#1411 bukica csendes tag btotyi #1404

Új Válasz 2007-01-11 20:50:19 #1411
Új hozzászólás
Ö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

bukica

csendes tag

válasz btotyi #1404 üzenetére

Oké köszi ezt Én is kipróbáltam, és jó is, csak a font charsetet ANSI_CHARSET-re kell állítani, akkor jelenik meg az átmérő jel.
Már csak az az a probléma, hogy a billentyű lenyomásakor a beírja a karaktert, és a kurzor a sor elejére ugrik.
Hogyan lehet azt megoldani, hogy maradjon a szöveg végén a kurzor?
#1403 bukica csendes tag ViragL #1396

Új Válasz 2007-01-10 20:38:38 #1403
Új hozzászólás
Ö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

bukica

csendes tag

válasz ViragL #1396 üzenetére

Értem amit írsz, ki is próbáltam, de hiába adok a key-nek értéket, ez nem kerül a képernyőre.
#1395 bukica csendes tag

Új Válasz 2007-01-03 12:13:40 #1395
Új hozzászólás
Ö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

bukica

csendes tag

Sziasztok!

Boldog Új Évet mindenkinek!

Hogyan tudom azt megcsinálni, hogy pl. az átmérő jelet betegyem valamelyik billentyű helyett, hogy mikor egy 'TEdit' mezőben megnyomom azt a billentyűt akkor az átmérő jelenjen meg?
#1366 bukica csendes tag

Új Válasz 2006-12-11 20:54:03 #1366
Új hozzászólás
Ö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

bukica

csendes tag

Közben rájöttem:
if Components[j] is Tedit then
a megoldás.
#1365 bukica csendes tag

Új Válasz 2006-12-11 20:13:29 #1365
Új hozzászólás
Ö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

bukica

csendes tag

Megint lenne egy 'elemi' kérdésem.
Hogy lehet a form-on belül megállapítani,hogy milyen elemről van szó (TEdit, TLabel,TGroupBox, stb.) Pl. egy ciklusban, be akarom álltani, hogy a TEdit mezők Text-je üres legyen.

for j := 0 to Form1.ComponentCount -1 do
begin
if Form1.Components[j].????? egy TEdit then
Tedit(Form1.Components[j]).Text:='';
end;

Vagy van egyszerűbb megoldás is a Form mezők üresítésére?
#1359 bukica csendes tag ViragL #1357

Új Válasz 2006-12-10 20:38:56 #1359
Új hozzászólás
Ö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

bukica

csendes tag

válasz ViragL #1357 üzenetére

Nagy vagy!

Úgy néz ki jó lesz. Nagyon köszönöm a segítséget, remélem még kereshetlek, ha problémám lesz.
#1356 bukica csendes tag btotyi #1355

Új Válasz 2006-12-10 18:29:45 #1356
Új hozzászólás
Ö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

bukica

csendes tag

válasz btotyi #1355 üzenetére

Plíz egy kis példával szemléltesd.
Sr:='mMunkasz';
mMunkasz.Text:='324567';
Hogy hivatkozom az 'Sr' változóra, ebben az estben.
#1354 bukica csendes tag

Új Válasz 2006-12-10 11:40:55 #1354
Új hozzászólás
Ö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

bukica

csendes tag

Egy string változóban van egy TEdit mező neve. Hogyan tudnék értéket adni a TEdit mezőnek?

Bocs a láma kérdésért, de kezdő vagyok.
#1339 bukica csendes tag ViragL #1335

Új Válasz 2006-11-23 08:18:00 #1339
Új hozzászólás
Ö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

bukica

csendes tag

válasz ViragL #1335 üzenetére

Na rájöttem végre, hogy mi a baj. Delphi for .NET -et használtam, Delphi for Win32 helyett, és az előző nem ismerte a StrPCopy() fv.-t.
Most már működik, és köszi minden segítséget.
#1334 bukica csendes tag ViragL #1333

Új Válasz 2006-11-21 14:51:36 #1334
Új hozzászólás
Ö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

bukica

csendes tag

válasz ViragL #1333 üzenetére

Nagyjából értem, de mi is az a szignatúra? A paraméter megadás? A Delphi 2005 helpjében a

[Delphi] function StrPCopy(Dest: PAnsiChar, const Source: string): PAnsiChar;

található, míg a programban a következőként szerepel:

function ExecAndWait(const FileName: string; const CmdShow: Integer): Longword;

var { by Pat Ritchey }
zAppName: array[0..512] of Char;
zCurDir: array[0..255] of Char;
WorkDir: string;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
AppIsRunning: DWORD;
begin
StrPCopy(zAppName, FileName);
GetDir(0, WorkDir);
StrPCopy(zCurDir, WorkDir);
FillChar(StartupInfo, SizeOf(StartupInfo), #0);
.
.
end;

Itt az StrPcopy() és a FillChar() -ra is hibát jelez. Mi is akkor a teendő? Próbáljak egy másik függvényt írni helyette?
Bocs, hogy sokat kérdezek, de szeretném megérteni, ill. megcsinálni a progit, hogy működjön.
#1331 bukica csendes tag ViragL #1330

Új Válasz 2006-11-21 07:10:06 #1331
Új hozzászólás
Ö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

bukica

csendes tag

válasz ViragL #1330 üzenetére

Ezek szerint azt mondod, hogy pl. egy Delphi 3 alatt működő progit nem tudok lefofdítani Delphi 2005 és Delphi 8 alatt? Hát ez nekem egy kicsit magas. Én azt hittem, hogy lefele kompatibilisek ezek a progik. Egyébként a Delphi 2005 helpjében megtaláltam az StrPCopy-t, azt írja, hogy a SysUtils-ban van, és mégis azt írja, hogy nemdeklarált vátozó . Nem értem.
#1326 bukica csendes tag ViragL #1325

Új Válasz 2006-11-20 18:01:06 #1326
Új hozzászólás
Ö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

bukica

csendes tag

válasz ViragL #1325 üzenetére

Gondolhatod, hogy amit a neten találtam progikat, mindegyikben ott volt a SysUtils uses-ként. Ezért nem értem a dolgot.
#1324 bukica csendes tag

Új Válasz 2006-11-20 14:47:57 #1324
Új hozzászólás
Ö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

bukica

csendes tag

Sziasztok!

Kezdő vagyok Delhiben.
Az StrPCopy() függvényt szeretném használni, de fordításkor mindig kiírja, hogy 'undeclared Identifier: StrPCopy'. Több progit is találtam már a neten, ami ezt használja, de egyiket sem sikerült lefordítanom, mindegyiknél ezt a hibát írja ki. Próbáltam 8-as és a 2005-ös Delphivel is. Mi lehet a gond, mi marad ki a progiból?