Einzelnen Beitrag anzeigen

Benutzerbild von Duke_2004
Duke_2004

Registriert seit: 26. Jan 2005
61 Beiträge
 
#20

Re: Functions mit Delphi

  Alt 12. Jul 2005, 13:25
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;
  Mit Zitat antworten Zitat