Functions mit Delphi

[Duke_2004]

Naja...ICQ per Web gibts ja auch noch...

Zu deinen Showmodalen...

Delphi-Quellcode:

procedure Button1click(Sender:TObject);//Beispiel!!!
begin
  case frmtestauswahl.ShowModal of
  mrok: 
  begin
    case frmmesswertauswahl.ShowModal of
    mrok: 
    begin
      frmmesswertauswahl.Close; 
      frmtestauswahl.Close; 
      CreateMDIChild('Unbenannt' + IntToStr(MDIChildCount + 1)); 
    end;
    mrcancel:
    begin
  
    end;
  end;
  mrcancel:
  begin
    frmtestauswahl.close;
  end;
  end; 
end;

Wenn ich deinen voherigen Quellcode richtig durchgeblickt hab...

Zu DBEdit:

Delphi-Quellcode:

DBEdit.Field.AsString := 'irgendwas';
oder
DBEdit.Field.AsInteger := 5;

Zu Combobox:

Delphi-Quellcode:

if (Combobox.Items.Count > 0) then
begin
  Combobox.ItemIndex := 1;
end;