Új hozzászólás Aktív témák
-
tusi74
őstag
Na újabb rejtély.
Táblát töltök combobox-okból.
Azt mondom, hogy
Query5.FieldByName('Dkod').AsInteger:=StrToInt(Combox1.Text);
vagy
Query5.FieldByName('Dkod').AsInteger := StrToInt(Combox1.Items[Combox1.Itemindex]);
A következő történik.
Megnyomom egyszer a gombot, ami beszúrná, akkor beszúrja
minden combobox 0. indexű elemét. Tök mindegy, mi van beállítva.
Megnyomom mégegyszer, akkor megcsinálja rendesen, amit én beállítottam.
Igen ám, de a rossz is bekerül a táblába.
Aztán minden megy jól, akármit átállítok, megy. Csak a program indulása után az első beszúrás csinálja.
Hát erre kíváncsi vagyok. -
Hani
aktív tag
Bocs, nem figyeltem.
Ha még mindig Labelt szeretnél, akkor esetleg egy ilyesmit képzeltem (egy új Form-on)
....
....
UjForm:= Tform.Create(Application);
With UjForm do
Begin
width:=300;
height:=400;
Position:=poDeskTopCenter;
BorderStyle:=bsToolWindow;
BorderIcons:=[];
//bla bla bla
End;
SajatLabel:=TLabel.Create(UjForm); //Parent-nek ugye figyelsz, mit adsz meg
With SajatLabel do
Begin
Parent:=UjForm;
AutoSize:=False;
WordWrap:=True;
Left:=1005;
Top :=1005;
Width:=290;
Height:=300;
Transparent:=True;
Align:=alLeft;
Font.Size:=17;
Font.Name:='Americana BT';
Font.Style:=[fsBold];
Caption:='EzMegIttACaption';
//Bla blabla bla blaa.
End;
Persze a property-ket késõbb is beállíthatod.
Mellesleg ne felejtsd el majd felszabadítani a lefoglalt erõforrásokat (Free). -
Drótszamár
őstag
Lehet hogy a blockread csak a vinyókon, flopikon működik.
Esetleg próbáld meg a copy parancsot használni.
nem 100% hogy így kell csinálni:
exec (''copy x:\könyvtár\amit_masolni_akarsz.kit x:\konyvtar\ahova_masolni_akarod.fil'');
de lehet hogy kell még neki paraméter.
Ez tulajdonképpen az, mintha a parancssorban adnád ki a copy parancsot.
Ennek elvileg működnie kell.( 2b || !2b ) az itt a kérdés...
Új hozzászólás Aktív témák
- Mibe tegyem a megtakarításaimat?
- Microsoft Excel topic
- Politika
- Diablo IV
- Betelik a pohár: nagy igény lenne a gyorshajtás-ellenes technológiára
- Kerékpárosok, bringások ide!
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Futás, futópályák
- Apple iPhone 15 Pro Max - Attack on Titan
- Kormányok / autós szimulátorok topicja
- További aktív témák...
- HGST 10TB 7.2K 12Gbps 256MB 3,5" SAS HDD Több darab is van
- Poco X6 Pro 12/512 garanciális
- INGYEN POSTA! AsRock B550M, Ryzen 5 5500, RX 6600XT, 16Gb DDR4 3200Mhz CL16, 250Gb M.2, 600W Gold
- CTO ÚJ Bontatlan MacBook Pro 16 M3 Pro 12CPU/18GPU 18GB/1TB SSD Magyar billentyűzet Azonnal átvehető
- ÚJ BONTATLAN Apple Watch Series 8 S8 41-45mm Azonnal Átvehető DEÁK TÉRNÉL 1 Év Apple Garanciával.