Új hozzászólás Aktív témák
-
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. -
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). -
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.
Új hozzászólás Aktív témák
Hirdetés
- Eladó szép állapotban levő Apple iPhone 8 Plus 64GB / 12 hó jótállással
- GYÖNYÖRŰ iPhone 11 Pro 256GB Midnight Green -1 ÉV GARANCIA - Kártyafüggetlen, MS2048, 96% Akksi
- Xiaomi Redmi Note 14 Pro 256GB Kártyafüggetlen 1 év Garanciával
- Gamer PC- Számítógép! Csere-Beszámítás! I7 4790K / 16GB DDR3 / RX 5700XT 8GB / 512GB SSD
- LG 83C3 - 83" OLED evo - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox!
Állásajánlatok
Cég: FOTC
Város: Budapest