Grafisk problem, ComboBox, Form close
System: Delphi6, Proff. version.Ønsket grundfunktion:
Et "Edit felt med Dropdown" (Form1) således at et "Navn" kan indtastes direkte i edit feltet - eller der kan trykkes på dropdown pil så en ny form fremkommer (Form5) som indeholder en DBGrid med link til en database og diverse søgemuligheder mm. Når "Navn" er fundet afsluttes ved click på DBGrid cell.
Overnævnte er implementeret med en TComboBox som "Edit og DropDown" felt (uden Items data). Det virker helt ok - bortset fra at - når Form5 afsluttes (efter click på et Navn) efterlader den "grafiske rester" i Form1 ComboBox'en. Dette sker kun hvis Form5 dækkede ind over Form1 Combobox'en. Er det et forkert koncept til opgaven ? - eller kan det afhjælpes ? - er det PC/grafikkort afhængig ?
Meget forenklet kode:
procedure TForm1.TrNavnDropDown(Sender: TObject); // = TComboBox'en
begin
Form5.FindNavn.Text := Form1.TrNavn.Text;
//Edit felt i Form5 for "search" mm.
Form5.ShowModal;
Form1.Show;
TrAntal.SetFocus;
end;
procedure TForm5.NavnGridCellClick(Column: TColumn); // DBGrid cell click = Navn valgt
begin
Form1.TrNavn.Text := ''; //Nødvendig reset af ComboBox.Text da næste tildeling ellers vises som
//en overskrivning! af oprindeligt indhold. Ved læsning af indhold er det dog ok - Why?
//Kilden til dette er nok den samme som mit hovedproblem, men her er det uafhængig af om
//Form5 dækker Form1.
Form1.TrNavn.Text := DataModule2.TableNavne.FieldByName('Navn').AsString;
Form5.ModalResult := 1; //return to Form1
end;
