Forum: Object-Pascal / Delphi-Language
by Sievo,
27. Sep 2010
Man Man Man ^^
Das klappt ja wie sau!!
Vielen Dank!!!!
Nur das ich halt nicht hinbekomme das in die selektierten Felder automatisch der Eintrag
'KundenNr. + Kundennummer.text' eingetragen wird. Mein obiger erster Quelltext.
begin
Forum: Object-Pascal / Delphi-Language
by Sievo,
27. Sep 2010
Hmm
also ich hab mir jetzt überlegt die Zelle erst dann zu Färben wenn da 'KundenNr. + Kundennummer.text'
drin steht. also müsste ich doch das state so setzen das da raus kommt:
IF state
then begin
with TStringGrid(Sender).Canvas do begin
if (ACol=1) and (ARow=1) then begin // <=======
Brush.Color:= clRed;
Forum: Object-Pascal / Delphi-Language
by Sievo,
27. Sep 2010
Hallo alle zusammen!
Ich steht wiedermal vor einem Problem!
Ich habe folgenden Quelltext:
function TForm1.GetStartCell(vehiclenum: integer; startdate: TDate): TPoint;
var ActCol, ActRow: integer;
begin
result := Point(-1, -1);