Delphi Android ile Modal İnputbox İşlemi
FMX.Dialogs.InputBox(
'Miktar Giriniz ','','0',
procedure(const AResult: TModalResult; const AValue: string)
begin
case AResult of
mrOk:
begin
ShowMessage('Veri Girildi');
End;
end;
end;
end
);
Mobil uygulama klavyedeki Enter tuşuna basınca sonraki işleme yapmak için kullandığım kod
procedure TForm.SifreKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
Shift: TShiftState);
begin
if sender is TEdit then
if Key in [vkReturn] then
case TEdit(sender).ReturnKeyType of
TReturnKeyType.Send : Button1Click(Self);
end;
end;
Delphi Firemonkey string grid renklendirme kodu
procedure TForm.StringGrid1DrawColumnCell(Sender: TObject;
const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF;
const Row: Integer; const Value: TValue; const State: TGridDrawStates);
begin
aRowColor := TBrush.Create(TBrushKind.Solid, TAlphaColors.Alpha);
if Sartim > 0 then
aRowColor.Color := TAlphaColorRec.Aqua
else
if Sartim = 0 Then
ARowColor.Color := TAlphaColorRec.Lime
else
if Sartim < 0 then
aRowColor.Color := TAlphaColorRec.Aliceblue;
aNewRectF := Bounds;
aNewRectF.Inflate(3, 3);
Canvas.FillRect(aNewRectF, 0, 0, [], 1, aRowColor);
Column.DefaultDrawCell(Canvas, Bounds, Row, Value, State);
aRowColor.free;
end;