onCreate und ähnliches an Cursorposition einfügen

[RavenIV]

Die Logik versteh ich aber trotzdem nicht.
Und alphabetisch kann es irgendwie nicht sein.

Delphi-Quellcode:

procedure TFoReportStart.LcProjektChange (Sender: TObject);
begin
  if LcProjekt.Enabled then
    fProjKey := QuProjSelect.FieldByName ('PROJKEY').AsInteger;
end;

procedure TFoReportStart.LcKostenstelleExit (Sender: TObject);
begin
  if LcKostenstelle.Enabled then
    fCostKey := QuCostSelect.FieldByName ('COSTKEY').AsInteger;
end;

procedure TFoReportStart.LcProduktChange (Sender: TObject);
begin
  if LcProdukt.Enabled then
    fProdKey := QuProdSelect.FieldByName ('PRODKEY').AsInteger;
end;

function TFoReportStart.frxDesignerSaveReport (Report: TfrxReport; SaveAs: Boolean): Boolean;
begin
  inherited;
  Result := SaveReport (Report);
  Report.Name := QuReports.FieldByName ('REPCODE').AsString;
end;

procedure TFoReportStart.CbKostenstelleAlleEnter(Sender: TObject);
begin
  inherited;
// ***** Diese Methode habe ich grad einfügen lassen ****
end;

procedure TFoReportStart.CbReportsMitFarbenDruckenClick (Sender: TObject);
begin
  // modify main form option
  if fUserChange then
    FoMain.AcReportsMitFarbenDrucken.Checked := CbReportsMitFarbenDrucken.Checked;
end;