| Autor |
Beitrag |
w99427
Hält's aus hier
Beiträge: 12
Win NT
Delphi 4
|
Verfasst: Fr 13.05.05 13:48
hi leute!
ich programmiert zur zeit eine Tabelle, die soll einige Stromversorgungen auflisten.
jede Stromversorgung hat eine Name, und einige Eingenshaften.
Name und spannung bzw. strom kann mann eingeben, andere eingeschaft soll von eine list auswählen. z.B. Typ, VDDP oder VDDC usw.
deswegen möchte ich hier fragen, ob mann eine Combobox in ein Cell integrieren?
geht mit F1Book oder andere Methode?
dankkkkk!
mfg
jian
|
|
Lannes
 
Beiträge: 2352
Erhaltene Danke: 4
Win XP, 95, 3.11, IE6
D3 Prof, D4 Standard, D2005 PE, TurboDelphi, Lazarus, D2010
|
Verfasst: Sa 14.05.05 00:35
Hallo,
das geht. 
1. das Objekt erzeugen
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| procedure TForm1.Button3Click(Sender: TObject);
var ID : Integer;
begin
F1Book1.ObjNew(F1ObjDropDown,1,6,3,30,ID);
F1Book1.ObjAddItem(ID,'Hallo');
F1Book1.ObjAddItem(ID,'w99427');
end; |
2. Im Objektinspektor bei ValueChanged dann dieses zum Abfragen der Auswahl einbauen.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| procedure TForm1.F1Book1ObjValueChanged(Sender: TObject;
var ObjName: WideString; ObjID: Integer);
var nItem : integer;
item : string;
begin
showmessage('DropDown mit der ID "'+IntToStr(ObjID)+'" wurde geändert');
nItem := F1Book1.ObjValue[ObjID];
item := F1Book1.ObjItem[ObjID,nItem];
showmessage('Gewählt wurde : "'+item+'"');
end; | _________________ MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
|
|
w99427 
Hält's aus hier
Beiträge: 12
Win NT
Delphi 4
|
Verfasst: Mi 18.05.05 12:10
dank lannes für deine Antwort.
Aber es ist die Ideal lösung. ich habe auch versucht andere Methode zu benutzten.
z.B. mit eine nicht sichbare Combobox Komponent, wenn eine der Cell selected, dann diese Combobox soll genau an die Position erschein, und nach die Auswahl vorgang die wert zu Cell übergeben bzw. sich wieder nicht sichtbar machen.
problem ist nun, ich kann keine rect von den Cell kriegen... kann jemand helfen?
|
|
w99427
Hält's aus hier
Beiträge: 12
Win NT
Delphi 4
|
Verfasst: Mi 18.05.05 12:12
bzw. eine Bild als anhang
Einloggen, um Attachments anzusehen!
|
|
Lannes
Beiträge: 2352
Erhaltene Danke: 4
Win XP, 95, 3.11, IE6
D3 Prof, D4 Standard, D2005 PE, TurboDelphi, Lazarus, D2010
|
Verfasst: Mi 18.05.05 12:52
Hallo,
hab den Code etwas angepasst:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TForm1.Button1Click(Sender: TObject);
var ID,Spalte,Zeile : Integer;
begin
F1Book1.GetActiveCell(Zeile,Spalte); F1Book1.ObjNew(F1ObjDropDown,Spalte-1,Zeile-1,Spalte,30,ID);
F1Book1.ObjAddItem(ID,'Hallo');
F1Book1.ObjAddItem(ID,'w99427');
end; |
es wird ein dropDown-Element in die active Zelle gesetzt.
"wenn eine der Cell selected" >> Ereignis "SelChange"
Ps.: Steht auch in der Hilfe zum F1Book (markieren + F1)  _________________ MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
|
|
w99427
Hält's aus hier
Beiträge: 12
Win NT
Delphi 4
|
Verfasst: Do 19.05.05 10:07
Super~~~
und Vielen Dank! 
|
|
|
