Kod: Tümünü seç
procedure TfrmPARKET.FrameDuzA1cbSecClick(Sender: TObject);
begin
if frmPARKET.FrameDuzA1.oyuncuAd.Text='' then exit;
frmPARKET.FrameDuzA1.Color := clLime;
end;
Kod: Tümünü seç
procedure TfrmPARKET.cbSecChange(Sender: TObject);
begin
if frmPARKET.FrameDuzA1.oyuncuAd.Text='' then exit;
frmPARKET.FrameDuzA1.Color := clLime;
end;