Arsip: Bagaimana cara memasukkan combobox ke dalam stringgrid ?

 
user image
more 14 years ago

holmes

KK, Pengen Nanya. Gimana Cara Masukin ComboBox Ke Dalam Stringgrid ? Maksudnya biar ada combobox di dalem beberapa cell tertentu di stringgrid gitu. Thanks buat jawabannya.
user image
more 14 years ago

saysansay

Maksudnya Seperti Ini Ya....Wakakakakakaka
user image
more 14 years ago

saysansay

Ok dech Langkah Awal Yg Mesti Di lakukan Pertama 1. Letakakan Satu Combobox Diatas Sebuah Form 2. Lakukan hal yg sma Untuk Stringgrid Selanjutnya KIta langsung aja Coding Gimana Setuju nga? wakakaakakaka Deklarasikan Sebuah Key Untuk String grid
private
    { Private declarations }
    Procedure CMDialogKey( Var msg: TCMDialogKey );
    message CM_DIALOGKEY ;
[/pas]
user image
more 14 years ago

saysansay

Ok Untuk Langkah berikutnya.... Bikin procedure CMdProcedure CMDialogKey( Var msg: TCMDialogKey ); Codingnya kira2 Seperti Ini

procedure TForm1.CMDialogKey(var msg: TCMDialogKey);
begin
  If Activecontrol = Combobox1 Then Begin
    If msg.CharCode = VK_TAB Then Begin
      stringgrid1.setfocus;
      stringgrid1.perform( WM_KEYDOWN, msg.charcode, msg.keydata );
      msg.result := 1;
      Exit;
    End;
  End;
  inherited;
end;
user image
more 14 years ago

saysansay

Ok dech Lanjut...Aduh capek nech...Bentar ya...Mau beli Martabak Dulu wakakakakakaka LAperr oiii Ok L:anjut Langkah Berikutnya Di Even Combobox1 on Exit Masukan Coding Seperti Ini

  procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
   with sender as TCombobox do begin
    hide;
    if itemindex >= 0 then
      with stringgrid1 do
        cells[col, row] := items[itemindex];
  end;
end;
Dan Di Form On Create Masukan Coding seperti ini

procedure TForm1.FormCreate(Sender: TObject);
begin
  combobox1.visible := false;
  // Disini Dapat anda isi properties Kolom dan Row Sesuai dengan  Kemauan anda 
end;
user image
more 14 years ago

saysansay

Ok Kita lanjut....Sekarang Di StringGrid Event SelectCell masukan Coding seperti ini...Oh Iya Holmes abis..Coding Ini Jangan Lupa Kirim Martabak Ke Bandung Ok wakakakaka

  procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var
  R: TRect;
  org: TPoint;
begin
  With Sender As TStringgrid Do
    If (ACol = 2) and (ARow >= FixedRows) Then      // Memasukan ComboBox Kedalam StringGrid  Ke Kolom Ke berapa dalam Semua baris 
     Begin
       perform( WM_CANCELMODE, 0, 0 );      // Grid Seleksi Mode 
      R := CellRect( Acol, Arow ); // Posisi Control On Top
      org:= Self.ScreenToClient( ClientToScreen( R.topleft ));
      With combobox1 do begin
        setbounds( org.X, org.Y, r.right-r.left, height );
        itemindex := Items.IndexOf( Cells[acol, arow] );
        Show;
        BringTofront;
        // Fokus Combobox 
        SetFocus;
        DroppedDown := true;
      end;
    End;
end;
user image
more 14 years ago

saysansay

Ok Langkah Terakhir...Kita regestrasi Nech komponet..unitnya seperti ini

unit ControlStringgrid;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids;
type
  TControlStringgrid = class(TStringgrid)
  private
    { Private declarations }
    Procedure WMCommand( var msg: TWMCommand ); message WM_COMMAND;
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
  end;
procedure Register;
implementation
procedure Register;
begin
  RegisterComponents('PBGoodies', [TControlStringgrid]);
end;
{ TControlStringgrid }
procedure TControlStringgrid.WMCommand(var msg: TWMCommand);
begin
  If EditorMode and ( msg.Ctl = InplaceEditor.Handle ) Then
    inherited
  Else
    If msg.Ctl <> 0 Then
      msg.result :=
        SendMessage( msg.ctl, CN_COMMAND,
                     TMessage(msg).wparam,
                     TMessage(msg).lparam );
end;
end.
Nah Holmes Ente Mesti ganti martabak ane..Uda habis nech..wakakakaka Ditunggu ya Ganti martabaknya wakakakakakaka NB: NEVER GIVE ERORR
user image
more 13 years ago

old_shutterhand

bung saysansay, saya masih belum ngerti cara menjadikannya komponen? itu dbikin 2 unit ato cman satu? ada listing lengkapnya? thx
user image
more 13 years ago

uuh

terima kasih pada mas saysansay, saya bisa ambil manfaat dari posting diatas, saya sudah coba dan berhasil. kemudian, kalo boleh numpang tanya lagi. kalo mau masukkin image ke stringgrid bagaimana? thanks
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com